約 4,031,708 件
https://w.atwiki.jp/twitterbot/pages/741.html
NagatoBot / 長門有希 Web http //www.cute.to/~missy/nagato.html 自己紹介対有機生命体コンタクト用ヒューマノイド・インターフェース…のbot。それがわたし ver.1.5.4 最近のつぶやき 新着記事は見つかりませんでした。
https://w.atwiki.jp/aniwotawiki/pages/18065.html
登録日:2009/07/01(水) 01 27 55 更新日:2024/04/20 Sat 23 10 11NEW! 所要時間:約 3 分で読めます ▽タグ一覧 I've KOTOKO OTOKOじゃないよKOTOKOだよ つぼみも大ファン アーティスト エロゲー エロゲ四大歌姫 ドワーフ 北海道 歌手 KOTOKOは、音楽制作「I've」所属のアーティスト。北海道出身。 ▽目次 ■活動内容 ■主な曲【アニメ】 【ゲーム】 【その他】 ■余談 ■活動内容 エロゲーやアニメの主題歌を歌うことが多い。 というか、エロゲーをやったことある人なら、だいたい知っていると思う。 基本的に自ら作詞作曲を行う。いわゆるシンガーソングライターである。 彼女の曲は業界でも評価は高い。 その歌唱力もさることながら、曲によってガラリと雰囲気を変え、作品にマッチした作詞を手掛けることでも有名。 他の歌手に作詞を提供することもある。 2008年に映画「リアル鬼ごっこ」で初めて実写作品の主題歌を歌った。 2009年、I've外での活動も開始。その際は名義を『kotoko』と小文字で表記する。 I'veでの活動も通常通り行うとのこと。 ■主な曲 【アニメ】 曲名 作品 種類 備考 being 灼眼のシャナ OP 後期 BLAZE 灼眼のシャナⅡ Sociometry ED Light My Fire 灼眼のシャナⅢ OP 天壌を翔る者たち 劇場版灼眼のシャナ 主題歌 Loop-the-Loop もっとTo LOVEる-とらぶる- OP ハヤテのごとく! ハヤテのごとく! 前期 七転八起☆至上主義! 後期 daily-daily Dream ハヤテのごとく!! 後期 Face of Fact -RESOLUTION ver.- BALDR FORCE EXE RESOLUTION Re-sublimity 神無月の巫女 agony ED Suppuration -core- 挿入歌 Chercher~シャルシェ~ マリア様がみてる ED きれいな旋律 SticK Out キングスレイド 意志を継ぐものたち 地に還る~on the earth~ スターシップ・オペレーターズ ▲MEW▲△MEW△ CAKE OVAネコぱら →unfinished→ アクセル・ワールド PLASMIC FIRE アクセル・ワールド INFINITE∞BURST 主題歌 Second Flight おねがい☆ツインズ OP 回帰新星 -recurrent nova- おねがい☆ツインズ 特別編 『おねがい☆ティーチャー 特別編』のOPとしても使用された。 Shooting Star おねがい☆ティーチャー LOVE A RIDDLE イメージソング I can’t get over your best smile snow angel あの日の君へ Special Life! 仮面のメイドガイ OP TOUGH INTENTION 白銀の意思 アルジェヴォルン 前期 ZoNE-iT 後期 call 挿入歌 DuDiDuWa*lalala 魔法少女隊アルス ED NHK教育『天才ビットくん』アニメコーナー Trust You’re Truth~明日を守る約束~ とらいあんぐるハート〜Sweet Songs Forever〜 OP 『とらいあんぐるハート'S Sound Stage X』のOPとしても使用された。 Bright wings 挿入歌 inside of a wilderness ED 第1巻-第3巻 Sweet Songs ever with you 第4巻 My Gentle Days とらいあんぐるハート'S Sound Stage X 挿入歌 【ゲーム】 曲名 作品 種類 備考 Fatally DUEL SAVIOR OP あさがお 優しい魔法の唱え方 Stars Biscuit ふりフリ Pray’s color -Link- ましろサマー Pray’s color -Lost- 2ndテーマ 同じ空の下で 家族計画 Abyss ラストオーダー Imaginary affair こなたよりかなたまで monochrome こなかな 2 ~Konatayori Kanatamade II~ Presto はつゆきさくら グランドオープニング ユメミボシ★boom!boom! ティンクル☆くるせいだーす みらくる☆みるきーうぇい ティンクル☆くるせいだーす -Passion Star Stream- ↑青春ロケット↑ すぺーす☆とらぶる ねぇ、……しようよ! 姉、ちゃんとしようよ!2 Crystal moment もっと 姉、ちゃんとしようよっ! *bloom* もっと 姉、ちゃんとしようよっ! アフターストーリー Jumping Note うたう♪タンブリング・ダイス I need magic ~解けないマジ☆キュン カラフルウィッシュ~12コのマジ☆キュン!~ さくらんぼキッス〜爆発だも〜ん〜 カラフルキッス ~12コの胸キュン!~ きゅるるんKissでジャンボ♪♪ カラフルハート ~12コのきゅるるん♪~ cross up OL姉妹 Mighty Heart~ある日のケンカ、いつもの恋心~ つよきす Swift Love~健全男子にモノ申す~ つよきす2学期 Love mission!!~なんだ。ただの恋かw~ つよきす3学期Portable Do you feel loved? オレ様ティーチャー ~復讐教師のwebカウンセリング~ あちちな夏の物語り Ripple ~ブルーシールへようこそっ~ Art as♡ イノセントガール Boundary Line Silent Half Cream+Mint ショコラ 恋する森のfairy tale うそつき王子と悩めるお姫さま-PRINCESS SYNDROME- We survive V.G. NEO Change my Style~あなた好みの私に~ コスって! My Honey All right!! まいてつ Last Run!! 仲国 wind of memory~記憶の風~ 巫女舞~ただ一つの願い~ a piacere Chanter -キミの歌がとどいたら- お*ま*ま*ご*と お保母ごと~ひみつのおゆうぎ、ママにはないしょ~ Crash Course~恋の特別レッスン~ メアメアメア 遮光~かげり~ Coda -棘- きらめく乙女 そして煌めく乙女と秘密^5 fickle はらみこ Magical Sweetie お姫さまだっこ~天使にオシオキ~ Wing my way ファーランドシンフォニー Lilies line チアフル! One-chance!! ピュアガール 僕らが見守る未来 -ProtoType Version- はじらひ CAVE DEEP 2 らずべりー らずべりー Absurd まいにち好きして bumpy-Jumpy! ナツユメナギサ allegretto~そらときみ~ この青空に約束を― Leaf Ticket パルフェ U マテリアルブレイブ イグニッション Unite+reactioN マテリアルブレイブ resolution of soul D+VINE[LUV] ドリームキャスト版 soupir d'ange 屋根裏の彼女 はじめまして、恋。 淫妹BABY rime 犠母姉妹 乙女心+√ネコミミ=∞ 王立ネコミミ学園~あなたのための発情期♪~ amethyst 兄嫁 Mirabilis B~蒼き背徳~ Time heals all sorrows Care~癒すべき不治の狂気~ went away 夏色の砂時計 Floating up カルマルカ*サークル Adolescence Locator シロガネ×スピリッツ! HALLUCINO -Remix- 夢幻の迷宮 Platinum Edition HALLUCINO 夢幻の迷宮3 TYPE S ワタシはウタがヘタ 誕生日~通い妻(自称)日記~ SAVE YOUR HEART 注射器2 blossomdays ハチミツ乙女blossomdays thyme シュクレ~sweet and charming time for you.~ 幻想の宝石 プリズム☆ま~じカル クライマックス Ideal Forest 無差別恋愛 Princess Brave! Princess Brave 雀卓の騎士 Lupe 凌辱制服女学園~恥蜜に濡れた制服~ ED You’re my treasure SPOTLIGHT~羨望と欲望の狭間~ oblivion 私立レイプ女学院 Time rolls on… Deep Fantasy loose Scarlett Now and heaven -KOTOKO ver.- 淫らな罪~悦楽の終日~ Instinct's Answer ぱらだいすお~しゃん 挿入歌 運命の旋律 夜刀姫斬鬼行 月下流進 月が導く異世界道中 イメージソング Crossed Destiny Only you -リ・クルス- 新緑のユートピア 牧羊人之心 主題歌 I pray to stop my cry 凌辱看護婦学院 そのハート、危険物につき取り扱いChu♡意!! 3Ping Lovers!☆一夫二妻の世界へようこそ♪ Close to me… effect~悪魔の仔~ 桜ひとひら恋もよう 桜ひとひら恋もよう Bum-out!! 残念な俺達の青春事情。 桜舞う坂を、君と歩く 初恋1/1 die or dice? ミリオンアーサー アルカナブラッド 夏草の線路 Railway~ここにある夢~ Miracle タイムディフェンダーズ 恋ひ恋ふ縁 千恋*万花 ruin 性欲のはけ口~ダブルショッキング~ アオナツライン アオナツライン faith~信じる力~ 閃鋼のクラリアス ゆらふわ Sunny day 恋愛♡はーれむ~大好きって言わせて~ My-Les デッキメイクミリオンアーサー 発売中止 恋愛CHU! 恋愛CHU! -彼女のヒミツはオトコのコ?- S×W -soul world- アクセル・ワールド VS ソードアート・オンライン 千年の黄昏 ウィザーズコンプレックス ウィザーズコンプレックス INTERNET OVERDOSE NEEDY GIRL OVERDOSE INTERNET YAMERO 関連楽曲 affection レーシャル・マージ 主題歌 Teller of World ゆめいろアルエット! Fancy Game!? あなたをオトコにしてあげる! 蒼-iconoclast BLAZBLUE 情報番組『アニメTV』のEDとしても使用された。 TRUE-BLUE BLAZBLUE CENTRALFICTION 碧羅の天へ誘えど BLAZBLUE -CONTINUUM SHIFT- OP エリカ WAR OF BRAINS 提供曲 UNDERWORLD HOLOGRAPHY beatmaniaIIDX 26 Rootage XXX-revolt crossbeats REV Face of Fact BALDR FORCE OP Restoration~沈黙の空~ BALDR SKY Dive1 jihad Dive2 WING OF ZERO BALDR SKY"ZERO" Reboot oN/↓0 BALDRSKY"ZERO"2 REFOCUS BALDR ACE 主題歌 real-Reality BALDR BRINGER Sign of Suspicion BALDR HEART Undying Love ALMA OP ずっとそばに... 挿入歌 Princess Bride! Princess Bride OP Sledgehammer Romance ED リスタート 恋愛リプレイ OP Largo ED Just as time is running out ぎりギリLOVE OP unsymmetry ED Feel in tears Heart of Hearts OP Heart of Hearts ED sensitive 義妹~背徳の契り~ OP 想い出は風の中で... ED I-DOLL~Song for eternity~ I-DOLL~アイドル~ OP 君と夢を信じて ED flow~水の生まれた場所~ 水素 ~1/2の奇蹟~ OP YA・KU・SO・KU ED 未来自画像 真剣で私に恋しなさい!S OP 茜空~それが僕らの世界だった~ 真剣で私に恋しなさい!! ED 常識!バトラー行進曲 君が主で執事が俺で~お仕え日記~ぽーたぶる OP room 君が主で執事が俺で ED Fusion Star あねいも OP Fusion Star-Remix- あねいも2 挿入歌 INFINITE SKY 蒼の彼方のフォーリズム OP One Small Step 蒼の彼方のフォーリズム EXTRA1 主題歌 Way to Fly~蒼の彼方へ~ 蒼の彼方のフォーリズム ZWEI イメージソング 発売中止 Flower!! 百花繚乱エリクシル 主題歌 Blooming!! 百花繚乱エリクシル~Record Of Torenia Revival~ OP 限定版 Bright wings とらいあんぐるハート1・2・3 DVD EDITION ED 涙の誓い とらいあんぐるハート3 ~Sweet Songs Forever~ OP See You~小さな永遠~ ED 『とらいあんぐるハート3 リリカルおもちゃ箱』の挿入歌としても使用された。 君よ、優しい風になれ とらいあんぐるハート3 リリカルおもちゃ箱 原罪のレクイエム PRISM ARK 決断のentrance PRISM ARK らぶらぶマキシマム! 挿入歌 NEGAIGOTO ネコぱら vol.4 ネコとパティシェのノエル ED SWEETxSWEET 主題歌 【その他】 曲名 作品 種類 備考 リアル鬼ごっこ リアル鬼ごっこ 主題歌 『music.jp』のTVCMソングとしても使用された。 SCREW アサルトガールズ HYDIAN WAY Departed to the future Mimosa ヒメこい-ドラマCD- OP 秋爽 KOTOKOのトコトコ探検記 ED 羽 アニメTV La clef~迷宮の鍵~ 異国迷路のクロワーゼ イメージソング U make 愛 dream ai sp@ce テーマソング ■余談 I'veのアーティストで一番最初にメジャーデビューした。 身長150cmということから「ドワーフ」と称されることがある。 不足があると思うので追記があればお願いします。 私も少しずつ修正する予定です。 △メニュー 項目変更 この項目が面白かったなら……\ポチッと/ -アニヲタWiki- ▷ コメント欄 [部分編集] 夏草の線路ェ・・・ -- 名無しさん (2014-02-18 00 01 33) エロゲやったこと無いけどFMラジオ聴いてたから知ってる -- 名無しさん (2019-04-06 00 34 13) KOTOKOさんとI've、今どこにいるの? -- 名無しさん (2019-04-06 10 18 36) ↑ どっちも活動中ですよ -- 名無しさん (2019-08-30 10 38 35) この人の曲、エロゲだとバルドシリーズ、一般作品だとブレイブルーシリーズのOPが特に好みの曲だな。 -- 名無しさん (2021-08-30 12 50 23) 歌唱力は言うまでもないけど、この人の歌詞が原作、キャラへの思いを感じられてすごい好き -- 名無しさん (2024-04-20 23 10 11) 名前 コメント
https://w.atwiki.jp/otya128/pages/40.html
@S_HELLO GOSUB @WINFLAG WINX2=64 WINY2=19 WINTTL$="HELLO" RETURN @WIN_HELLO WINSX=0 WINSY=0 WINSC=1 WINSTR$="Hello!" GOSUB@WINSTRPUT RETURN @S_HELLO2 WIN_MODE=1 GOSUB @WINFLAG HELLO2_X2=LEN("Windowsテ゛コンヒ゜ュ-タ-ノ")*8 HELLO2_Y2=64+18+16+8 HELLO2_SCY=8 HELLO2_SCX=8 WINTTL$="HELLOFONT" WINTTL$="Form1" HELLOTXT$="WINDOWS" HELLORF[0]=1 HELLO2_RADMAX=4-1 RETURN @WIN_HELLO2 WIN_MODE=1 WINCLS=1 WINTTL$="Form1 - "+STR$(HELLOBC) WINX2=HELLO2_X2 WINY2=HELLO2_Y2 WINSCX=HELLO2_SCX WINSCY=HELLO2_SCY GOSUB @WINDOW HELLO2_SCX=WINSCX HELLO2_SCY=WINSCY IF WINIDFLG==1THEN RETURN WINSX=0 WINSY=0 WINSC=1 WINSTR$=WINTXT$+"テ゛コンヒ゜ュ-タ-ノ IF LEN(WINSTR$)*8 HELLO2_X2 THEN HELLO2_X2=HELLO2_X2+1 IF LEN(WINSTR$)*8 HELLO2_X2 THEN HELLO2_X2=HELLO2_X2-1 IF HELLOCHKF==1AND LEN(WINSTR$)*8!=HELLO2_X2 THEN HELLO2_X2=LEN(WINSTR$)*8 GOSUB @WINSTRPUT WINSX=0 WINSY=8 WINSC=1 WINSTR$="セカイカ゛ヒロカ゛リマス。 GOSUB @WINSTRPUT WINBX=37 WINBY=16 WINBSTR$="button1" GOSUB @WINBTN IF WINBTNF==1THEN HELLO2F=1 HELLOBC=HELLOBC+1 IF HELLO2F==1THEN WINSX=0 WINSY=26 WINSC=4 WINSTR$="ЁЖ"+STR$(HELLOBC)+"ホ゛タンオサレタ" GOSUB@WINSTRPUT WINPX=5 WINPY=26+8 WINPX2=HELLO2_X2 WINPY2=26+16 WINPS=HELLOBC GOSUB @WINPROGBAR WINTR=HELLORF[1]+HELLORF[3] WINTM=HELLORF[2]+HELLORF[3] WINTX=0 WINTX2= HELLO2_X2 WINTY=26+16 WINTXTP$=HELLOTXT$ WINTSX=HELLOTSX WINTA=HELLOAC GOSUB @WINTXTBOX HELLOTSX=WINTSX HELLOTXT$=WINTXT$ HELLOAC=WINTA WINCX=2 WINCY=26+25 WINCSTR$="checkBox1 WINCHKF=HELLOCHKF GOSUB @WINCHKBOX HELLOCHKF=WINCHKF WINRX=2 WINRY=26+25+8 WINRSTR$="radioButton1 WINRF=HELLORF[0] GOSUB @WINRADBTN HELLORF[0]=WINRF IF WINNRF==1THEN HELLO2_RAD=0 GOSUB @HELLO2_RAD WINRF=HELLORF[1] WINRX=2 WINRY=26+25+8+8 WINRSTR$="Readonly GOSUB @WINRADBTN HELLORF[1]=WINRF IF WINNRF==1THEN HELLO2_RAD=1 GOSUB @HELLO2_RAD WINRF=HELLORF[2] WINRX=2 WINRY=26+25+8+8+8 WINRSTR$="Masked GOSUB @WINRADBTN HELLORF[2]=WINRF IF WINNRF==1THEN HELLO2_RAD=2 GOSUB @HELLO2_RAD WINRF=HELLORF[3] WINRX=2 WINRY=26+25+8+8+8+8 WINRSTR$="MaskedReadonly GOSUB @WINRADBTN HELLORF[3]=WINRF IF WINNRF==1THEN HELLO2_RAD=3 GOSUB @HELLO2_RAD RETURN @HELLO2_RAD HELLORF[HELLO2_RAD]=1 FOR I=0TO HELLO2_RADMAX IF HELLO2_RAD!=I THEN HELLORF[I]=0 NEXT RETURN -シュウリョウ- (ラシ゛オホ゛タンヲショキカ) @C_HELLO2 FOR I=1TO HELLO2_RADMAX HELLORF[I]=0 NEXT HELLORF[0]=1 HELLOCHKF=0 GOSUB @WINCLOSE RETURN @S_SETTING WIN_MODE=1 GOSUB @WINFLAG SETTING_X2=64+48 SETTING_Y2=74 WINTTL$="SETTING" SETTING_RF[0]=MODE==0 SETTING_RF[1]=MODE==1 SETTING_RADMAX=2-1 RETURN @WIN_SETTING WIN_MODE=1 WINX2=SETTING_X2 WINY2=SETTING_Y2 WINSCX=SETTING_SCX WINSCY=SETTING_SCY GOSUB @WINDOW SETTING_SCX=WINSCX SETTING_SCY=WINSCY IF WINIDFLG==1THEN RETURN WINSX=0 WINSY=0 WINSC=1 WINSTR$="マウス" GOSUB @WINSTRPUT WINRF=SETTING_RF[0] WINRX=0WINRY=8 WINRSTR$="MODE0" GOSUB @WINRADBTN SETTING_RF[0]=WINRF IF WINNRF==1THEN SETTING_RF[1]=0 MOUSEMODE=0 WINRF=SETTING_RF[1] WINRX=0WINRY=16 WINRSTR$="MODE1" GOSUB @WINRADBTN SETTING_RF[1]=WINRF IF WINNRF==1THEN SETTING_RF[0]=0 MOUSEMODE=1 WINSX=8 WINSY=24 WINSC=1 WINSTR$="ホ゛タン" GOSUB @WINSTRPUT WINCHKF=SETTING_CHKF WINCX=0 WINCY=32 WINCSTR$="Aテ゛クリック GOSUB @WINCHKBOX SETTING_CHKF=WINCHKF IF SETTING_CHKF==1THEN CLICKBTN=16 ELSE CLICKBTN=256 P$=STR$(FPS/60) WINSX=0 WINSY=40 WINSC=1 WINSTR$="ハ゜フォ-マンス "+P$ GOSUB @WINSTRPUT RETURN @S_FREE GOSUB @WINFLAG WINX2=48 WINY2=32 WINTTL$="FREE RETURN @WIN_FREE WINSTR$=STR$(FREEVAR) WINSX=0 WINSY=0 WINSC=1 GOSUB @WINSTRPUT RETURN @S_RUN WINMLT[TSK]=RUN_P GOSUB @WINFLAG WINX2=80 WINY2=40 WINTTL$="RUN RUN_P=RUN_P+1 RETURN @WIN_RUN P=WINMLT[TSK] WINTX2=WINX2-1 WINTA=RUNTA[P] WINTX=1 WINTY=8 WINTXTP$=RUNNAME$[P] WINTSX=RUNSX[P] GOSUB @WINTXTBOX RUNSX[P]=WINTSX RUNNAME$[P]=WINTXT$ RUNTA[P]=WINTA WINBX=2 WINBY=18 WINBSTR$="RUN" GOSUB@WINBTN RUNBTNF=WINBTNF IF RUNBTNF==1THEN GOSUB @RUN_EXE RETURN @RUN_EXE WINEXE$=RUNNAME$[P] GOSUB @WINEXE CLICK=0 CLICK2=0 CLICK3=0 CLICKR=0 CLICKR2=0 CLICKR3=0 CLICKF=0 TSK=TSKMAX-1 RETURN カンイ エテ゛ィタ @S_LED WINTTL$="エテ゛ィタ WINX2=130 WINY2=41 LED_LINE=1 RETURN @WIN_LED WINBX=2 WINBY=1 WINBSTR$="LD" GOSUB @WINBTN IF WINBTNF==1THEN LED_FL=1 WINBX=24 WINBY=1 WINBSTR$="SV" GOSUB @WINBTN IF WINBTNF==1THEN LED_FL=2 WINBX=46 WINBY=1 WINBSTR$="UP" GOSUB @WINBTN LED_F=0 IF WINBTNF==1THEN LED_F=2 WINBX=68 WINBY=1 WINBSTR$="DW" GOSUB @WINBTN IF WINBTNF==1THEN LED_F=1 WINSX=1 WINSY=13 WINSTR$="line "+STR$(LED_LINE) WINSC=1 GOSUB @WINSTRPUT LED_B$=LED_LINES$ WINTX2=WINX2-1 WINTX=0 WINTY=22 WINTA=LED_A WINTXTP$=LED_LINES$ WINTSX=LED_TSX GOSUB @WINTXTBOX LED_A=WINTA LED_LINES$=WINTXT$ IF LED_B$!=WINTXT$ THEN GOSUB @LED_APP LED_TSX=WINTSX IF LED_F==1THEN LED_UP=0 GOSUB @LED_DW IF LED_F==2THEN LED_UP=1 GOSUB @LED_DW IF LED_FL!=0THEN GOSUB @LED_FIL RETURN @LED_FIL WINY2=74 WINSTR$="LOAD"*(LED_FL==1)+"SAVE"*(LED_FL==2) WINSX=0 WINSY=32 WINSC=1 GOSUB@WINSTRPUT WINTXTP$=LED_FIL$ WINTX=0 WINTY=40 WINTSX=LED_FLSX WINTX2=WINX2-1 WINTA=LED_FLA GOSUB @WINTXTBOX LED_FLA=WINTA LED_FIL$=WINTXT$ LED_FLSX=WINTSX WINBX=2 WINBY=50 WINBSTR$="LOAD"*(LED_FL==1)+"SAVE"*(LED_FL==2) GOSUB @WINBTN IF WINBTNF==1THEN GOSUB @LED_L_S RETURN @LED_L_S IF LED_FL==1THEN LOAD"MEM "+LED_FIL$,0 LED$=MEM$ IF LED_FL==2THEN MEM$=LED$ SAVE"MEM "+LED_FIL$ LED_I=0 GOSUB @LED_DW RETURN @LED_APP LED$=LEDB$+LED_LINES$+LEDC$ RETURN @LED_DW C$=CHR$(13) L=0 F=0 J=0 I=0 IF LED_LINE 1THEN LED_LINE=0 IF LED_UP==0THEN LED_LINE=LED_LINE+1 ELSE LED_LINE=LED_LINE-1 LED_UP=0 FOR I=0TO LEN(LED$)-1 M$=MID$(LED$,I,1) IF M$==CHR$(13)THEN L=L+1 LED_LS$=MID$(LED$,J,I-J) J=I+1 IF LED_LINE==L AND F==0 THEN F=1 LED_I=I LED_LINES$=LED_LS$ NEXT IF F==0THEN LED_LINES$=MID$(LED$,J,I-J) LED_LINE=L+1 LED_I=J IF LED_LINE==0THEN LED_LINE=0 GOTO @LED_DW LEDB$=MID$(LED$,0,LED_I-1) LEDC$=MID$(LED$,LED_I+LEN(LED_LINES$),256) RETURN @S_MEV WINX2=128 WINY2=74 WINTTL$="MEMViewer" RETURN @WIN_MEV WINTX=0 WINTY=0 WINTXTP$=MEV_F$ WINTSX=MEV_X WINTA=MEVA WINTX2=8*8 GOSUB @WINTXTBOX MEVA=WINTA MEV_X=WINTSX MEV_F$=WINTXT$ WINBX=66 WINBY=-1 WINBSTR$="LOAD" GOSUB @WINBTN IF WINBTNF==1THEN GOSUB @MEV_F IF MEV$==""THEN RETURN X=WX+1 Y=WY+19 C=0 K=0 F=0 FOR I=0TO LEN(MEV$)-1 M$=MID$(CHR$(13)+MEV$+CHR$(13),I,1) M$=MID$(MEV$,I,1) IF I =MEV_C THEN K=J I=99998 GOTO @MEV_SKK IF M$==CHR$(13)THEN C=C+1 J=I F=1 @MEV_SKK NEXT IF F==0THEN K=0ELSE K=K+1 MEV_D=K INSTR(J,MID$(MEV$,0,MEV_C)+CHR$(13),CHR$(13)) IF MEV_D==-1THEN MEV_D=0 Z=MEV_D FOR I=MEV_D TO LEN(MEV$)-1 M$=MID$(MEV$,I,1) IF X =WX2 THEN X=WX+1 Y=Y+8 IF Y =WY2 THEN I=9999 GOTO @MEVSK GPUTCHR X,Y,"BGF",ASC(M$),1,1 IF Z==MEV_C THEN GFILL X,Y+7,X+8,Y+8,14 X=X+8 Z=Z+1 IF M$==CHR$(13)THEN Y=Y+8 X=WX+1 I=I+1 M$=MID$(MEV$,I,1) @MEVSK NEXT B=BUTTON() IF B==4THEN MEV_C=MEV_C-1 IF B==8THEN MEV_C=MEV_C+1 IF MEV_C 0THEN MEV_C=0 IF MEV_C =LEN(MEV$)THEN MEV_C=LEN(MEV$)-1 KEYFLG=KEYFLG+(WINACTV==1) IF WINACTV==1THEN @MEV_ED RETURN @MEV_ED INK$=KEYBF$ KEYBF$="" IF KEYFLG==1AND INK$!=""THEN MEV$=MID$(MEV$,0,MEV_C)+INK$+MID$(MEV$,MEV_C,256) MEV_C=MEV_C+LEN(INK$) RETURN @MEV_F LOAD "MEM "+MEV_F$,0 MEV$=MEM$ RETURN @S_CLOCK WINX2=66 WINY2=75 WINTTL$="CLOCK WINCLS=1 RETURN @WIN_CLOCK GCIRCLE WX+33,WY+42,32,7 TMREAD(TIME$),A,B,C B=B+C/60 A=A%12 E=35+WX+COS(RAD((180+90+C*6)%360))*31 +2 D=42+WY+SIN(RAD((180+90+C*6)%360))*31 +10 GLINE E,D,WX+34,WY+42,13 E=35+WX+COS(RAD((180+90+B*6)%360))*30 +2 D=42+WY+SIN(RAD((180+90+B*6)%360))*30 +10 GLINE E,D,WX+34,WY+42,14 E=35+WX+COS(RAD((180+90+A*30+B*0.5)%360))*22 +2 D=42+WY+SIN(RAD((180+90+A*30+B*0.5)%360))*22 +10 GLINE E,D,WX+34,WY+42,14 RETURN @C_CLOCK GOSUB @WINCLOSE RETURN @S_MONO GOSUB @OTWCOL WINCLS=1 FOR I=0TO 255 COLREAD("SP",I),R,G,B C=(R+G+B)/3 COLSET "GRP",I,HEX$(C,2)*3 COLSET "SP",I,HEX$(C,2)*3 COLSET "BG",I,HEX$(C,2)*3 NEXT RETURN @WIN_MONO RETURN @C_MONO GOSUB @OTWCOL GOSUB @WINCLOSE RETURN @S_MONO3 GOSUB @S_MONO WINCLS=1 FOR I=0TO 255 COLREAD("SP",I),R,G,B C=(R+G+B)/3 C=0OR (C+1)/128 C=C*127 COLSET "GRP",I,HEX$(C,2)*3 COLSET "SP",I,HEX$(C,2)*3 COLSET "BG",I,HEX$(C,2)*3 NEXT RETURN @WIN_MONO3 RETURN @C_MONO3 GOSUB @WINCLOSE GOSUB @OTWCOL RETURN @S_MONO2 GOSUB @OTWCOL WINCLS=1 FOR I=0TO 255 COLREAD("SP",I),R,G,B C=(R+G+B)/3 IF C 127THEN C=255 ELSE C=0 COLSET "GRP",I,HEX$(C,2)*3 COLSET "SP",I,HEX$(C,2)*3 COLSET "BG",I,HEX$(C,2)*3 NEXT RETURN @WIN_MONO2 RETURN @C_MONO2 GOSUB @WINCLOSE GOSUB @OTWCOL RETURN @S_COL2 WINCLS=1 GOSUB @OTWCOL FOR COL_I=0TO 255 COLREAD("SP",COL_I),R,G,B IF R 64THEN R=0 IF R 64AND R 128THEN R=128 IF R 128AND R 192 THEN R=192 IF R 192 THEN R=255 IF G 64THEN G=0 IF G 64AND G 128THEN G=128 IF G 128 AND G 192THEN G=192 IF G 192 THEN G=255 IF B 64THEN B=0 IF B 64AND B 128THEN B=128 IF B 128 AND B 192THEN B=192 IF B 192 THEN B=255 COMP$=STR$(R)+" "+STR$(G)+" "+STR$(B) GOSUB COMPRT$ COLSET "SP",COL_I,HEX$(R,2)+HEX$(G,2)+HEX$(B,2) COLSET "GRP",COL_I,HEX$(R,2)+HEX$(G,2)+HEX$(B,2) COLSET "BG",COL_I,HEX$(R,2)+HEX$(G,2)+HEX$(B,2) NEXT RETURN @WIN_COL2 RETURN @C_COL2 GOSUB @OTWCOL GOSUB @WINCLOSE RETURN @S_COL WINCLS=1 GOSUB @OTWCOL D=128 FOR I=0TO 255 COLREAD("SP",I),R,G,B R=(0OR (R/D))*D G=(0OR (G/D))*D B=(0OR (B/D))*D IF R 128THEN R=255 IF R 128THEN R=0 IF G 128THEN G=255 IF G 128THEN G=0 IF B 128THEN B=255 IF B 128THEN B=0 COLSET "SP",I,HEX$(R,2)+HEX$(G,2)+HEX$(B,2) COLSET "BG",I,HEX$(R,2)+HEX$(G,2)+HEX$(B,2) COLSET "GRP",I,HEX$(R,2)+HEX$(G,2)+HEX$(B,2) NEXT RETURN @WIN_COL RETURN @C_COL GOSUB @WINCLOSE GOSUB @OTWCOL RETURN @S_DBG WINY2=25 WINTTL$="DBG" RETURN @WIN_DBG WINSX=0 WINSY=0 WINSC=1 WINSTR$="X "+STR$(MOUSEX-WINSX[0]) GOSUB @WINSTRPUT WINSX=0 WINSY=8 WINSC=1 WINSTR$="Y "+STR$(MOUSEY-WINSY[0]) GOSUB @WINSTRPUT RETURN @S_M WIN_MODE=1 WINTTL$="オテ゛コ ヒロイ WINX2=100 WINY2=45 GOSUB @WINFLAG RETURN @DGS_WIN_M WINDEGY=20 WINDEGY2=1 WINDEGX=1 WINDEGX2=1 RETURN @DEG_WIN_M GFILL WX,WY,WX2,WY2,0 GFILL WX,WY,WX2,WY+19,15 GBOX WX,WY,WX2,WY2,13 WINSX=8 WINSY=-20 WINSC=1 WINSTR$=WINTTL$[TSK] GOSUB @WINSTRPUT RETURN @WIN_M WINDESIGN$="WIN_M" GOSUB @WINDOW IF WINIDFLG==1THEN RETURN WINSX=5 WINSY=0 WINSC=0 WINSTR$="ト゛クシ゛WINDOW GOSUB @WINSTRPUT RETURN @S_DT WIN_MODE=1 GOSUB @WINFLAG RETURN @WIN_DT WINDESIGN$="WIN_M" GOSUB @WINDOW IF WINIDFLG==1THEN RETURN WINBX=0 WINBY=0 WINBSTR$="TST GOSUB @WINBTN IF WINBTNF==1THEN TALK "ウワアアアアアオサレタアアアア WINTX=0 WINTY=12 WINTX2=WINX2 WINTXTP$=WINDT$ WINTA=WINDT_A WINTSX=WINDT_SX GOSUB @WINTXTBOX WINDT$=WINTXT$ WINDT_A=WINTA WINDT_SX=WINTSX RETURN @S_W3 WINTTL$="WWW WIN_MODE=1 GOSUB @WINFLAG RETURN @DGS_W3 WINDEGY=9 WINDEGX=8 WINDEGY2=8 WINDEGX2=8 RETURN @DEG_W3 GFILL WX,WY,WX2,WY2,WINBG GFILL WX,WY,WX2,WY+8,1 GFILL WX,WY+9,WX+8,WY2,13 GFILL WX+9,WY2-8,WX2,WY2,13 GFILL WX2-8,WY+9,WX2,WY2-8,13 GBOX WX2-8,WY,WX2,WY+8,15 GFILL WX2-7,WY+1,WX2-1,WY+7,13 GLINE WX2-6,WY+2,WX2-2,WY+6,14 GLINE WX2-2,WY+2,WX2-6,WY+6,14 WINSX=-8 WINSY=-8 WINSTR$=WINTTL$ WINSC=0 GOSUB @WINSTRPUT RETURN @WIN_W3 WINDESIGN$="W3" GOSUB @WINDOW IF WINIDFLG==1THEN RETURN WINSX=0 WINSY=0 WINSC=1 WINSTR$="WWWDS GOSUB @WINSTRPUT RETURN @S_SEIUN WINY2=32 WINTTL$="セイウン RETURN @WIN_SEIUN WINTXTP$=STR$(WINSEIUN) WINTA=SEIUN_A WINTSX=SEIUN_X WINTX=0 WINTX2=62 WINTY=0 GOSUB @WINTXTBOX SEIUN_X=WINTSX SEIUN_A=WINTA WINSEIUN=VAL(WINTXT$) WINBX=0 WINBY=12 WINBSTR$="OK GOSUB @WINBTN IF WINBTNF==1 THEN WINSTAR=WINSEIUN RETURN @S_STAR WIN_MODE=1 GOSUB @WINFLAG WINX2=128 WINY2=64 WINSTAR=7 RETURN @WIN_STAR WINTTL$="O"+STR$(WINSTAR)+"セイウン WINBG=14 GOSUB @WINDOW IF WINIDFLG==1THEN RETURN R=0 S=0 FOR I=0TO 10 S=((S+15)*WINSTAR)AND 4095 R=S/4096 S=((S+15)*WINSTAR)AND 4095 T=S/4096 GPSET WFX+R*128,WFY+T*54,15 NEXT RETURN @S_CAVEM CAVE_MU=1 WINNAME$[TSK]="CAVE GOTO @S_CAVE RETURN @S_CAVE GOSUB @WINBUFF IF BF==0THEN GOSUB@SYS_ERR_BUFF RETURN CAVE_BF=BF CAVE_MU=0 WINTTL$="CAVE-OCHAME"+"И"*CAVE_MU GOSUB@INI_CAVE RETURN @INI_CAVE CAVE_S=0 CAVE_Y=30 CAVE_V=RND(122) CAVE_P=0 CAVE_W=0 WINY2=191/2+11 WINX2=125 GPAGE 0,CAVE_BF,M GCLS 14 GPAGE 0,!M,M CAVE_SI=2 WINCLS=1 CAVE_U=0 CAVE_X=0 RETURN @C_CAVE CAVE_MU=0 GOSUB @WINCLOSE CAVE_GV=0 CAVE_S=0 BF=CAVE_BF GOSUB @WINBUFFC RETURN @WIN_CAVE GCOPY CAVE_BF,4,0,255/CAVE_SI,191/CAVE_SI,WFX,WFY,0 WINSX=0 WINSY=0WINSC=0WINSTR$=STR$(0OR CAVE_S)+" RESE CLICK"*CAVE_GV GOSUB @WINSTRPUT IF CAVE_GV==1AND WINACTV==1AND CLICK3==1AND WINFLG[TSK]==2THEN GOSUB@INI_CAVE CAVE_GV=0 IF CAVE_GV==1THEN RETURN BF=CAVE_BF GOSUB @WINBUFFP GPAGE 0,CAVE_BF,M CAVE_P=CAVE_P+1 CAVE_W=70-CAVE_P/20 GCOPY CAVE_BF,8/CAVE_SI,0,255/CAVE_SI,191/CAVE_SI,0,0,1 GFILL (254-6)/CAVE_SI,0,255/CAVE_SI,191/CAVE_SI,7 GFILL (254-6)/CAVE_SI,CAVE_V/CAVE_SI,255/CAVE_SI,(CAVE_V+CAVE_W)/CAVE_SI,14 CAVE_I=(GSPOIT(34/CAVE_SI,(CAVE_Y)/CAVE_SI+2) 14)CAVE_S=CAVE_S+1/CAVE_SI IF CAVE_I==1AND CAVE_MU==0THEN CAVE_GV=1 GFILL 30/CAVE_SI,CAVE_Y/CAVE_SI,34/CAVE_SI,(CAVE_Y+4)/CAVE_SI,2 CAVE_X=CAVE_X-(16 AND BUTTON())%5+0.5 CAVE_S=CAVE_S+(0OR ABS(CAVE_X))CAVE_U=RND(2)*4-2 CAVE_V=CAVE_V+CAVE_U*(CAVE_U+CAVE_V 0)*(CAVE_U+CAVE_V+CAVE_W 191) CAVE_Y=CAVE_Y+CAVE_X/CAVE_SI GOSUB@WINBUFFP2 GPAGE 0,!M,M RETURN @S_PAINT WINMLT[TSK]=PAINT_M BF=0 GOSUB @WINBUFF IF BF==0THEN GOSUB@SYS_ERR_BUFF RETURN PAINT_BF[PAINT_M]=BF BFC=15 GOSUB @WINBUFFGCLS PAINTF[PAINT_M]=0 WINTTL$="PAINT PAINT_M=(PAINT_M+1)%2 WINCLS=1 RETURN @C_PAINT BF=PAINT_BF[WINMLT[TSK]] GOSUB @WINBUFFC GOSUB @WINCLOSE RETURN @WIN_PAINT P=WINMLT[TSK] PAINT_C PAINT_C=(PAINT_C+1)%PAINT_M PAINTF2=0 IF PAINTF[P]==0THEN PAINTF[P]=1 RETURN IF WINACTV==0OR WINFLG[0]==3THEN PAINTF2=1 GCOPY PAINT_BF[P],0,0,62,52,WFX,WFY,1 BF=PAINT_BF[P] GOSUB @WINBUFFP IF PAINTF2==0AND CLICK==0AND CLICK2==1THEN GLINE MOUSEX-WFX,MOUSEY-WFY,PAINTX[P],PAINTY[P],14 PAINTX[P]=MOUSEX-WFX PAINTY[P]=MOUSEY-WFY PAINT_O=CLICK2 GPSET MOUSEX-WFX,MOUSEY-WFY,14 GOSUB @WINBUFFP2 RETURN @INI_GAME1 GAME1_X=16 GAME1_Y=95-20 GAME1_N=10 GAME1_GV=0 RETURN @S_GAME1 WINCLS=1 WINX2=130 WINY2=192/2+11 GOSUB @WINBUFF IF BF==0THEN GOSUB@SYS_ERR_BUFF RETURN BFC=6 GAME1_BF=BF GOSUB @WINBUFFGCLS GOSUB @WINBUFFP GFILL 0,96-16,128,96,7 GOSUB @WINBUFFP2 GOSUB @INI_GAME1 WINTTL$="GAME1 RETURN @WIN_GAME1 GCOPY GAME1_BF,0,0,128,96,WFX,WFY,1 GFILL GAME1_X-4+WFX,WFY+GAME1_Y-4,WFX+GAME1_X+4,GAME1_Y+4+WFY,4 IF GAME1_GV==1AND WINACTV==1AND CLICK3==1AND WINFLG[TSK]==2THEN GOSUB@INI_GAME1 IF GAME1_GV==1THEN RETURN IF BUTTON()AND 4THEN GAME1_X=GAME1_X-1 IF BUTTON()AND 8THEN GAME1_X=GAME1_X+4 IF(BUTTON()AND 16)==16AND GAME1_J==0THEN GAME1_J=1 IF GAME1_J==1THEN GAME1_Y=GAME1_Y*0.9 IF GAME1_J==2THEN GAME1_Y=GAME1_Y*1.1 IF GAME1_J==1AND GAME1_Y =16THEN GAME1_J=2 IF GAME1_J==2AND GAME1_Y =95-20THEN GAME1_J=0 GAME1_Y=95-20 GAME1_X=GAME1_X-2-!!JMPFLG IF GAME1_X 0THEN GAME1_X=0 BF=GAME1_BF GOSUB @WINBUFFP GCOPY GAME1_BF,2,0,128,96,0,0,1 GAME1_A1=GSPOIT(GAME1_X-4,GAME1_Y+8) GAME1_A2=GSPOIT(GAME1_X,GAME1_Y+8) GAME1_A3=GSPOIT(GAME1_X+4,GAME1_Y+8) IF !(GAME1_A1+GAME1_A2+GAME1_A3)THEN GAME1_GV=1 GAME1_R=RND(GAME1_N) GAME1_A=GSPOIT(GAME1_X,GAME1_Y) IF GAME1_A==2THEN GAME1_GV=1 GFILL 128-ABS(RND(15-GAME1_N)),96-16,128,96,!!GAME1_R*7 GAME1_B=RND(24) GAME1_BH=RND(20) IF GAME1_BH==0THEN GFILL 126,GAME1_B+8,128,GAME1_B,2 IF GAME1_BH!=0THEN GFILL 126,0,128,79,6 GAME1_N=GAME1_N-0.001 GOSUB @WINBUFFP2 RETURN @C_GAME1 BF=GAME1_BF GOSUB @WINBUFFC GOSUB @WINCLOSE GAME1_GV=0 RETURN @S_MAC WIN_MODE=1 GOSUB @WINFLAG WINTTL$="MAC RETURN @WIN_MAC WINDESIGN$="MAC GOSUB @WINDOW RETURN @DGS_MAC WINDEGW=1 WINDEGX=1 WINDEGX2=1 WINDEGY=10 WINDEGY2=1 RETURN @DGW_MAC IF WINFLG[TSK]==4THEN @DGW_MAC_S F=0IF MOUSEX =WX AND MOUSEX =WX2 AND MOUSEY =WY AND MOUSEY =WY2 THEN F=1 IF F==0AND CLICKF==1THEN WINFLG[TSK]=1 WINACTV=0 WINFLG=1 RETURN F=0 IF MOUSEX =WX+11 AND MOUSEX =WX2 THEN F=1 IF F==1 AND MOUSEY =WY AND MOUSEY =WFY THEN F=2 IDF=0 IF F==2 AND CLICK==1AND IDOUT==0THEN WINFLG=3 IDOUFLG=1 IDF=1GOSUB @WINSWP RETURN IF F==2 AND CLICKF==1AND IDOUT==0THEN WINFLG[TSK]=2GOSUB @WINSWP RETURN IF WINFLG==3THEN IDOUT=1 GOSUB @WINIDOU2 F=0 IDOUFLG=0 IF MOUSEX =WX AND MOUSEX =WX2 THEN F=1 IF F==1 AND MOUSEY =WFY AND MOUSEY =WY2 THEN F=2 IF F==2 AND CLICKF==1THEN WINFLG[TSK]=2 GOSUB @WINSWP RETURN F=0 IDOUFLG=0 IF MOUSEX =WX AND MOUSEX =WX+11 THEN F=1 IF F==1 AND MOUSEY =WY AND MOUSEY WFY THEN F=2 IF F==2 AND CLICKF==1THEN WINFLG[TSK]=2 GOSUB @WINSWP RETURN @DGW_MAC_S F=0 IF MOUSEX =WX+4 AND MOUSEX =WX+9 THEN F=1 IF F==1 AND MOUSEY =WY+3 AND MOUSEY WFY-3 THEN F=2 IF (F==2AND CLICK==1)OR WINFLG[TSK]==4THEN WINCS=0GOTO@DGM_MAC WINCS=0 RETURN @DGM_MAC WINFLG[0]=4 GFILL WX+4,WFY-2,WX+56,WFY+10,15 GBOX WX+4,WFY-2,WX+56,WFY+10,14 F=0 IF MOUSEX WX+4OR MOUSEX WX+56 THEN F=1 IF MOUSEY WY+3OR MOUSEY WFY+10THEN F=1 IF CLICK==1AND F==1THEN WINFLG[TSKB]=2 F=0 IF MOUSEX =WX+5AND MOUSEX =WX+45 THEN F=1 IF F==1AND MOUSEY =WFY AND MOUSEY =WFY+8THEN F=2 IF F==2AND CLICK==1THEN GOSUB @WINCLOSEGT IF F==2THEN GFILL WX+4,WFY-1,WX+55,WFY+8,14 WINSX=4 WINSY=0 WINSTR$="CLOSE" WINSC=1*F!=2 GOSUB @WINSTRPUT RETURN @DEG_MAC IF WINDEGW==1AND WINIDFLG==1THEN GOTO @DGW_MAC GFILL WX,WY,WX2,WFY,15 GFILL WFX,WFY,WFX2,WFY2,WINBG GBOX WX,WY,WX2,WY2,14 GLINE WX,WY+10,WX2,WY+10,14 IF WINACTV==1THEN GOSUB @DEGMAC WINSTR$=WINTTL$ WINSX=(WINX2/2+6.5)-(LEN(WINTTL$[TSK])/2)*8-1 IF WINSX 12THEN WINSX=12 WINSY=-9 WINSX2=WINSX+WX+LEN(WINTTL$)*8 IF WINSX2 WX2 THEN WINSX2=WX2-2 GFILL WINSX+WX,WY+1,WINSX2,WY+9,15 WINSC=1 GOSUB @WINSTRPUT GFILL WX+3,WY+3,WX+10,WY+7,15 GBOX WX+4,WY+3,WX+9,WY+7,14 RETURN @DEGMAC GLINE WX+2,WY+3,WX2-2,WY+3,14GLINE WX+2,WY+5,WX2-2,WY+5,14GLINE WX+2,WY+7,WX2-2,WY+7,14 RETURN @S_LONG WINTTL$="A"*256 RETURN @WIN_LONG RETURN @S_MENU WINTTL$="MENUBAR WINX2=64+8 RETURN @WIN_MENU WFX2=WFX2+800 WINMK=OTYAMKF WINMKS=OTYAMKFS WINMX=0WINMY=0 WINMX2=64 WINMMAX=3 WINM$[0]="MENU1" WINMENU[0]=16 WINM$[1]="2" WINM$[2]="3" WINM$[3]="4" GOSUB @WINMENU OTYAMKF=WINMK OTYAMKFS=WINMKS IF WINM==-1THEN OTYAMK2=0 IF WINM==-1GOTO@WIN_MENU_S ELSE OTYAMKF=1 OTYAMKFS=WINM WINMX=0WINMY=8 GOSUB "@WIN_MENU_"+STR$(WINM) WINMK=OTYAMK2 WINMKS=OTYAMKS2 GOSUB @WINMENU2 OTYAMK2=WINMK OTYAMKS2=WINMKS WINMK=0 WINMKS=0 IF WINM==1THEN OTYAMENU=1ELSE OTYAMENU=0 IF WINM==1THEN GOSUB @WIN_MENU__ @WIN_MENU_S WFX2=WFX2-800 RETURN @WIN_MENU__ OTYAMK2=1 OTYAMKS2=1 WINM$[0]="FILES WINM$[1]="LOAD" WINM$[2]="RUN" WINM$[3]="CONT" WINM$[4]="SAVE" WINMX2=80 WINMK=OTYAMK3 WINMKS=OTYAMKS3 WINM=-9 WINMX=40WINMY=16 WINMMAX=4 GOSUB @WINMENU2 OTYAMK3=WINMK OTYAMKS3=WINMKS IF WINM==0THEN GOSUB @WIN_MENU___ IF WINM==1THEN GOSUB @WIN_MENU___ IF WINM==4THEN GOSUB @WIN_MENU___ IF WINM==2THEN GOSUB @WIN_MENU___R RETURN @WIN_MENU___ WINM$[0]="PRG WINM$[1]="MEM WINM$[2]="CHR WINM$[3]="GRP WINMX2=120 WINMK=OTYAMK4 WINMKS=OTYAMKS4 WINMX=80WINMY=8 WINMMAX=3 GOSUB @WINMENU2 OTYAMK4=WINMK OTYAMKS4=WINMKS WINM=-1 RETURN @WIN_MENU___R WINM$[0]="@COMMAND WINM$[1]="@OTW WINMX2=143 WINMK=OTYAMK4R WINMKS=OTYAMKS4R WINMX=80WINMY=24 WINMMAX=1 GOSUB @WINMENU2 OTYAMK4R=WINMK OTYAMKS4R=WINMKS RETURN @WIN_MENU_0 WINMX2=40 WINM$[0]="MENU" WINM$[1]="MENU2" WINMMAX=1 RETURN @WIN_MENU_1 RETURN @WIN_MENU_2 RETURN @WIN_MENU_3 RETURN @C_MINE BF=MINE_BF GOSUB @WINBUFFC GOSUB @WINCLOSE MINE_F=0 FOR I=0TO 63 FOR J=0TO 63 MINE_M[I,J]=0 MINE_F[I,J]=0 NEXT NEXT RETURN DRAW DATA @N_MINE_N0 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX,MINE_NY,MINE_NX+6,MINE_NY,15 GLINE MINE_NX,MINE_NY+1,MINE_NX+6,MINE_NY+1,15 GLINE MINE_NX,MINE_NY+2,MINE_NX,MINE_NY+6,15 GLINE MINE_NX+1,MINE_NY+2,MINE_NX+1,MINE_NY+6,15 GLINE MINE_NX+7,MINE_NY+1,MINE_NX+7,MINE_NY+7,1 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+6,MINE_NY+7,1 GLINE MINE_NX+2,MINE_NY+6,MINE_NX+5,MINE_NY+6,1 GLINE MINE_NX+1,MINE_NY+7,MINE_NX+5,MINE_NY+7,1 RETURN @N_MINE_N11 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 RETURN @N_MINE_N1 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+4,MINE_NY+1,MINE_NX+4,MINE_NY+7,4 GLINE MINE_NX+2,MINE_NY+2,MINE_NX+3,MINE_NY+2,4 GLINE MINE_NX+2,MINE_NY+7,MINE_NX+6,MINE_NY+7,4 RETURN @N_MINE_N2 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+3,MINE_NY+1,MINE_NX+5,MINE_NY+1,10 GPSET MINE_NX+2,MINE_NY+2,10 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+6,MINE_NY+3,10 GLINE MINE_NX+5,MINE_NY+4,MINE_NX+2,MINE_NY+7,10 GLINE MINE_NX+3,MINE_NY+7,MINE_NX+6,MINE_NY+7,10 RETURN @N_MINE_N3 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GPSET MINE_NX+2,MINE_NY+2,2 GLINE MINE_NX+3,MINE_NY+1,MINE_NX+5,MINE_NY+1,2 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+6,MINE_NY+3,2 GLINE MINE_NX+4,MINE_NY+4,MINE_NX+5,MINE_NY+4,2 GLINE MINE_NX+6,MINE_NY+5,MINE_NX+6,MINE_NY+6,2 GLINE MINE_NX+3,MINE_NY+7,MINE_NX+5,MINE_NY+7,2 GPSET MINE_NX+2,MINE_NY+6,2 RETURN @N_MINE_N4 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+5,MINE_NY+1,MINE_NX+2,MINE_NY+4,194 GLINE MINE_NX+5,MINE_NY+2,MINE_NX+5,MINE_NY+7,194 GLINE MINE_NX+2,MINE_NY+6,MINE_NX+6,MINE_NY+6,194 GPSET MINE_NX+2,MINE_NY+5,194 RETURN @N_MINE_N5 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+2,MINE_NY+1,MINE_NX+6,MINE_NY+1,49 GLINE MINE_NX+2,MINE_NY+2,MINE_NX+2,MINE_NY+4,49 GLINE MINE_NX+3,MINE_NY+3,MINE_NX+5,MINE_NY+3,49 GLINE MINE_NX+6,MINE_NY+4,MINE_NX+6,MINE_NY+6,49 GLINE MINE_NX+3,MINE_NY+7,MINE_NX+5,MINE_NY+7,49 GPSET MINE_NX+2,MINE_NY+6,49 RETURN @N_MINE_N6 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+4,MINE_NY+1,MINE_NX+5,MINE_NY+1,27 GLINE MINE_NX+2,MINE_NY+3,MINE_NX+2,MINE_NY+6,27 GLINE MINE_NX+3,MINE_NY+4,MINE_NX+5,MINE_NY+4,27 GLINE MINE_NX+6,MINE_NY+5,MINE_NX+6,MINE_NY+6,27 GLINE MINE_NX+3,MINE_NY+7,MINE_NX+5,MINE_NY+7,27 GPSET MINE_NX+3,MINE_NY+2,27 RETURN @N_MINE_N7 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+2,MINE_NY+1,MINE_NX+6,MINE_NY+1,14 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+4,MINE_NY+4,14 GLINE MINE_NX+4,MINE_NY+5,MINE_NX+4,MINE_NY+7,14 GPSET MINE_NX+2,MINE_NY+2,14 RETURN @N_MINE_N8 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+3,MINE_NY+1,MINE_NX+5,MINE_NY+1,29 GLINE MINE_NX+2,MINE_NY+2,MINE_NX+2,MINE_NY+3,29 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+6,MINE_NY+3,29 GLINE MINE_NX+3,MINE_NY+4,MINE_NX+5,MINE_NY+4,29 GLINE MINE_NX+2,MINE_NY+5,MINE_NX+2,MINE_NY+6,29 GLINE MINE_NX+6,MINE_NY+5,MINE_NX+6,MINE_NY+6,29 GLINE MINE_NX+3,MINE_NY+7,MINE_NX+5,MINE_NY+7,29 RETURN BOMB @N_MINE_N9 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GPSET MINE_NX+2,MINE_NY+2,14 GPSET MINE_NX+3,MINE_NY+3,15 GLINE MINE_NX+2,MINE_NY+4,MINE_NX+6,MINE_NY+4,14 GLINE MINE_NX+4,MINE_NY+2,MINE_NX+4,MINE_NY+6,14 GLINE MINE_NX+3,MINE_NY+5,MINE_NX+2,MINE_NY+6,14 GLINE MINE_NX+5,MINE_NY+5,MINE_NX+6,MINE_NY+6,14 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+5,MINE_NY+3,14 RETURN @N_MINE_N10 ? GOSUB @N_MINE_N0 GLINE MINE_NX+1,MINE_NY+1,MINE_NX+2,MINE_NY+0,14 GLINE MINE_NX+4,MINE_NY+1,MINE_NX+3,MINE_NY+0,14 GLINE MINE_NX+4,MINE_NY+2,MINE_NX+3,MINE_NY+3,14 GPSET MINE_NX+3,MINE_NY+5,14 RETURN @N_MINE_N12 GOSUB @N_MINE_N0 GPSET MINE_NX+2,MINE_NY+2,2 GLINE MINE_NX+3,MINE_NY+1,MINE_NX+3,MINE_NY+3,2 GLINE MINE_NX+4,MINE_NY+1,MINE_NX+4,MINE_NY+3,2 GPSET MINE_NX+4,MINE_NY+4,14 GLINE MINE_NX+3,MINE_NY+5,MINE_NX+5,MINE_NY+5,14 RETURN @N_MINE_N13 GOSUB @N_MINE_N9 GPAINT MINE_NX+1,MINE_NY+1,2 RETURN @N_MINE_N14 GOSUB @N_MINE_N9 GLINE MINE_NX+2,MINE_NY+2,MINE_NX+6,MINE_NY+6,2 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+2,MINE_NY+6,2 RETURN 0=ナシ 1=1 2=2 8=8 9=BOM 10=? 11=FLG 12=OPEN 13ハ゛クハツ 14フセカ゛レタ @N_MINE BF=MINE_BF GOSUB @WINBUFFP FOR I=0TO MINE_X-1 FOR J=0TO MINE_Y-1 MINE_F[I,J]=0 MINE_M[I,J]=(RND(MINE_BOM)==0)*9 MINE_BOMB=MINE_BOMB+(MINE_M[I,J]==9) MINE_NX=I*8 MINE_NY=J*8 GOSUB @N_MINE_N0 NEXT NEXT スウシ゛セット FOR I=0TO MINE_X-1 FOR J=0TO MINE_Y-1 IF MINE_M[I,J]==9AND I 0THEN IF MINE_M[I-1,J]!=9THEN MINE_M[I-1,J]=MINE_M[I-1,J]+1 IF MINE_M[I,J]==9AND I MINE_X-1 THEN IF MINE_M[I+1,J]!=9THEN MINE_M[I+1,J]=MINE_M[I+1,J]+1 IF MINE_M[I,J]==9AND J 0THEN IF MINE_M[I,J-1]!=9THEN MINE_M[I,J-1]=MINE_M[I,J-1]+1 IF MINE_M[I,J]==9AND J MINE_Y-1 THEN IF MINE_M[I,J+1]!=9THEN MINE_M[I,J+1]=MINE_M[I,J+1]+1 F=0 IF MINE_M[I,J]==9AND I MINE_X-1AND J 0THEN IF MINE_M[I+1,J-1]!=9THEN F=1 IF F==1THEN MINE_M[I+1,J-1]=MINE_M[I+1,J-1]+1 F=0 IF MINE_M[I,J]==9AND J MINE_Y-1AND I 0THEN IF MINE_M[I-1,J+1]!=9THEN F=1 IF F==1THEN MINE_M[I-1,J+1]=MINE_M[I-1,J+1]+1 F=0 IF MINE_M[I,J]==9AND J 0AND I 0THEN IF MINE_M[I-1,J-1]!=9THEN F=1 IF F==1THEN MINE_M[I-1,J-1]=MINE_M[I-1,J-1]+1 F=0 IF MINE_M[I,J]==9AND J MINE_Y-1AND I MINE_X-1THEN IF MINE_M[I+1,J+1]!=9THEN F=1 IF F==1THEN MINE_M[I+1,J+1]=MINE_M[I+1,J+1]+1 NEXT NEXT RETURN FOR I=0TO MINE_X-1 FOR J=0TO MINE_Y-1 MINE_NX=I*8 MINE_NY=J*8 GOSUB "@N_MINE_N"+STR$(MINE_M[I,J]) NEXT NEXT GOSUB @WINBUFFP2 RETURN @GV_MINE FOR I=0TO MINE_X-1 FOR J=0TO MINE_Y-1 MINE_NX=I*8 MINE_NY=J*8 IF MINE_M[I,J]==9THEN IF MINE_F[I,J]==-1THEN MINE_M[I,J]=14 ELSE MINE_M[I,J]=13 IF MINE_M[I,J]==0THEN MINE_M[I,J]=11 GOSUB "@N_MINE_N"+STR$(MINE_M[I,J]) NEXT NEXT RETURN @P_MINE IF MINE_M[MINE_PX,MINE_PY]==3THEN IF MINE_F[MINE_PX,MINE_PY]==-1THEN RETURN MINE_NX=MINE_PX*8 MINE_NY=MINE_PY*8 IF MINE_N==0THEN GOSUB @P_MINE_O RETURN IF MINE_M[MINE_PX,MINE_PY]==9THEN MINE_GV=1 IF MINE_F[MINE_PX,MINE_PY]==0THEN MINE_SPACE=MINE_SPACE-1 IF MINE_F[MINE_PX,MINE_PY]==-2THEN MINE_SPACE=MINE_SPACE-1 MINE_F[MINE_PX,MINE_PY]=1 GOSUB "@N_MINE_N"+STR$(MINE_N) RETURN @P_MINE_O P=0 MINE_OX[0]=MINE_PX MINE_OY[0]=MINE_PY @P_MINE_OL IF P==-1THEN RETURN IF MINE_M[MINE_OX[P],MINE_OY[P]]==0THEN MINE_M[MINE_OX[P],MINE_OY[P]]=11 MINE_NX=MINE_OX[P]*8 MINE_NY=MINE_OY[P]*8 GOSUB "@N_MINE_N11" +STR$(MINE_M[MINE_OX[P],MINE_OY[P]]) IF MINE_F[MINE_OX[P],MINE_OY[P]]==0THEN MINE_SPACE=MINE_SPACE-1 IF MINE_F[MINE_OX[P],MINE_OY[P]]==-2THEN MINE_SPACE=MINE_SPACE-1 MINE_F[MINE_OX[P],MINE_OY[P]]=1 IF MINE_OX[P] 1THEN @P_MINE_OL2 G=MINE_M[MINE_OX[P]-1,MINE_OY[P]] IF MINE_F[MINE_OX[P]-1,MINE_OY[P]]==-1THEN @P_MINE_OL2 IF G==0 OR G==0 THEN MINE_OX[P+1]=MINE_OX[P]-1 MINE_OY[P+1]=MINE_OY[P]P=P+1 GOTO @P_MINE_OL F=0 IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==0 THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==-2THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9 THEN MINE_NX=MINE_NX-8 GOSUB "@N_MINE_N"+STR$(G) MINE_F[MINE_OX[P]-1,MINE_OY[P]]=1 MINE_NX=MINE_OX[P]*8 MINE_NY=MINE_OY[P]*8 @P_MINE_OL2 IF MINE_OY[P] 1THEN @P_MINE_OL3 G=MINE_M[MINE_OX[P],MINE_OY[P]-1] IF MINE_F[MINE_OX[P],MINE_OY[P]-1]==-1THEN @P_MINE_OL3 IF G==0 OR G==0 THEN MINE_OX[P+1]=MINE_OX[P] MINE_OY[P+1]=MINE_OY[P]-1P=P+1 GOTO @P_MINE_OL IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==0 THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==-2THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9 THEN MINE_NY=MINE_NY-8 GOSUB"@N_MINE_N"+STR$(G) MINE_F[MINE_OX[P],MINE_OY[P]-1]=1 MINE_NX=MINE_OX[P]*8 MINE_NY=MINE_OY[P]*8 @P_MINE_OL3 IF MINE_OX[P] =MINE_X-1THEN @P_MINE_OL4 G=MINE_M[MINE_OX[P]+1,MINE_OY[P]] IF MINE_F[MINE_OX[P]+1,MINE_OY[P]]==-1THEN @P_MINE_OL4 IF G==00OR G==0 THEN MINE_OX[P+1]=MINE_OX[P]+1 MINE_OY[P+1]=MINE_OY[P]P=P+1 GOTO @P_MINE_OL IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==0 THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==-2THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9 THEN MINE_NX=MINE_NX+8GOSUB"@N_MINE_N"+STR$(G) MINE_F[MINE_OX[P]+1,MINE_OY[P]]=1 MINE_NX=MINE_OX[P]*8 MINE_NY=MINE_OY[P]*8 @P_MINE_OL4 IF MINE_OY[P] =MINE_Y-1THEN @P_MINE_OL5 IF MINE_F[MINE_OX[P],MINE_OY[P]+1]==-1THEN @P_MINE_OL5 G=MINE_M[MINE_OX[P],MINE_OY[P]+1] IF G==00OR G==0 THEN MINE_OX[P+1]=MINE_OX[P] MINE_OY[P+1]=MINE_OY[P]+1P=P+1 GOTO @P_MINE_OL IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==0 THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==-2THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9 THEN MINE_NY=MINE_NY+8GOSUB "@N_MINE_N"+STR$(G) MINE_F[MINE_OX[P],MINE_OY[P]+1]=1 MINE_NX=MINE_OX[P]*8 MINE_NY=MINE_OY[P]*8 @P_MINE_OL5 P=P-1 GOTO @P_MINE_OL RETURN @MINEKEY KEY 1,"MINE_ END @A_MINE MINE_X=16 MINE_Y=16 MINE_SPACE=MINE_X*MINE_Y MINE_BOM=32 カクリツ DIM MINE_M[64,64] フラク゛マッフ゜ DIM MINE_F[64,64] DIM MINE_DX[64] DIM MINE_DY[64] DIM MINE_OX[64*64] DIM MINE_OY[64*64] MINE_=1 RETURN @SB_MINE GOSUB @WINBUFF IF BF==0THEN RETURN MINE_BF=BF RETURN @S_MINE WINCLS=1 IF MINE_F==1THEN GOSUB@WINCLOSE RETURN IF MINE_==0THEN GOSUB @A_MINE IF MINE_B==0THEN GOSUB@SB_MINE MINE_B=0 BF=MINE_BF BFC=13 GOSUB @WINBUFFGCLS GOSUB @N_MINE MINE_F=1 WINCLS=1 WINY2=MINE_Y*8+11 WINX2=MINE_X*8+3 GOSUB @WINBUFFP GBOX 0,0,MINE_X*8,MINE_Y*8,255 GOSUB @WINBUFFP2 MINE_GV=0 MINE_GV2=0 MINE_CL=0 WINTTL$="MINE RETURN @WIN_MINE GCOPY MINE_BF,0,0,MINE_X*8-1,MINE_Y*8-1,WFX,WFY,1 GAMEOVER IF MINE_GV+MINE_CL THEN WINSX=0WINSY=0 WINSTR$="А TO RESTART"WINSC=1GOSUB@WINSTRPUT BF=MINE_BF GOSUB @WINBUFFP IF MINE_CL AND WINACTV AND BUTTON()==16AND WINFLG[TSK]==2THEN MINE_B=1MINE_F=0GOSUB@S_MINE IF MINE_CL GOTO @SKP_MINE IF MINE_GV==1 THEN BGMPLAY 6 MINE_GV=2 GOTO @SKP_MINE IF MINE_GV==100AND !MINE_GV2 THEN GOSUB@GV_MINE MINE_GV=2 MINE_GV2=1 GOTO @SKP_MINE IF MINE_GV AND WINACTV AND BUTTON()==16 AND WINFLG[TSK]==2THEN MINE_B=1MINE_F=0GOSUB@S_MINE IF MINE_GV THEN MINE_GV=MINE_GV+1 GOTO @SKP_MINE IF MINE_CL==1THEN BGMPLAY 5 MINE_CL=2GOTO @SKP_MINE IF MINE_CL THEN MINE_CL=2GOTO @SKP_MINE MINE_MX=0OR(MOUSEX-WFX)/8 MINE_MY=0OR(MOUSEY-WFY)/8 F=0 IF MINE_MX =0AND MINE_MY =0THEN F=1 IF F AND MINE_MX =MINE_X-1 AND MINE_MX =MINE_Y-1THEN MINE_MF=1 ELSE MINE_MF=0 IF MINE_MF THEN ?MINE_M[MINE_MX,MINE_MY] IF CLICK*MINE_MF THEN MINE_PX=MINE_MX MINE_PY=MINE_MY MINE_N=MINE_M[MINE_MX,MINE_MY]GOSUB@P_MINE モト゛ス オエ- F=0S=0 IF CLICKR*MINE_MF THEN IF(MINE_F[MINE_MX,MINE_MY]==-2)THEN F=1 IF F==1THEN MINE_F[MINE_MX,MINE_MY]=0 MINE_NX=MINE_MX*8 MINE_NY=MINE_MY*8 GOSUB @N_MINE_N0 S=1 ? F=0 IF CLICKR*MINE_MF THEN IF(MINE_F[MINE_MX,MINE_MY]==-1)THEN F=1 IF F==1THEN GOSUB @HTN_MINE FLAG F=0 IF CLICKR*MINE_MF THEN IF(MINE_F[MINE_MX,MINE_MY]==0)THEN F=1 IF !S*F THEN GOSUB @FLG_MINE IF MINE_BOMB =0THEN MINE_CL=1BEEP 34 @SKP_MINE F=0 GOSUB @WINBUFFP2 RETURN @HTN_MINE IF MINE_M[MINE_MX,MINE_MY]==9THEN MINE_BOMB=MINE_BOMB+1 IF MINE_M[MINE_MX,MINE_MY]!=9THEN MINE_BOMB=MINE_BOMB-1 MINE_F[MINE_MX,MINE_MY]=-2 MINE_NX=MINE_MX*8 MINE_NY=MINE_MY*8 GOSUB @N_MINE_N10 RETURN @FLG_MINE MINE_F[MINE_MX,MINE_MY]=-1 MINE_NX=MINE_MX*8 MINE_NY=MINE_MY*8 GOSUB @N_MINE_N12 IF MINE_M[MINE_MX,MINE_MY]==9THEN MINE_BOMB=MINE_BOMB-1 IF MINE_M[MINE_MX,MINE_MY]!=9THEN MINE_BOMB=MINE_BOMB+1 RETURN @C_INV BF=INV_BF GOSUB @WINBUFFC GOSUB @WINCLOSE INV_F=0 INV_GV=0 INV_CL=0 INV_ME=0 RETURN @ST_INV BF=INV_BF GOSUB @WINBUFFP FOR I=0TO INV_EM-1 FOR J=0TO INV_EM2-1 INV_F[I,J]=0 INV_E[I,J]=1 GPUTCHR I*8+32,J*8,"BGF",ASC("Е"),0,1 NEXT NEXT GOSUB @WINBUFFP2 RETURN @A_INV INV_MX=8*8 INV_MY=4*8 INV_EM=8 INV_EM2=4 DIM INV_E[INV_EM,INV_EM2] DIM INV_F[INV_EM,INV_EM2] DIM INV_TEX[INV_EM,INV_EM2] DIM INV_TEY[INV_EM,INV_EM2] INV_A=1 RETURN @S_INV IF INV_F==1THEN RETURN INV_F=1 WINCLS=1 GOSUB @WINBUFF IF !BF THEN RETURN INV_BF=BF BFC=14 GOSUB @WINBUFFGCLS IF INV_A==0THEN GOSUB @A_INV WINX2=130 WINY2=96+10+1 @INV_INI GOSUB @ST_INV INV_SCO=0 INV_SX=32 INV_SY=0 INV_SF=0 INV_SP=1 INV_GV=0 INV_CF=0 INV_PX=64 INV_PY=96 INV_ME=INV_EM*INV_EM2 WINTTL$="INV RETURN @GV_INV IF INV_GV==1 THEN BGMPLAY 6 INV_GV=2 F=0 IF CLICK3 AND WINACTV AND WINFLG[TSK]==2THEN F=1 IF F THEN BF=INV_BF BFC=14 GOSUB@WINBUFFGCLS GOSUB@INV_INI WINSX=0WINSY=8WINSC=RND(16)WINSTR$="CLICK TO REPLAY"GOSUB @WINSTRPUT GPUTCHR INV_PX+WFX,WFY+96-8,"BGF",42,0,1 RETURN @CL_INV WINSX=0WINSY=8WINSC=0WINSTR$="CLICK TO REPLAY"GOSUB @WINSTRPUT F=0 IF CLICK3 AND WINACTV AND WINFLG[TSK]==2THEN F=1 IF F THEN BF=INV_BF BFC=14 GOSUB@WINBUFFGCLS GOSUB@INV_INI RETURN @WIN_INV GCOPY INV_BF,0,0,128,96,WFX,WFY,1 WINSX=0WINSY=0WINSC=0WINSTR$="SCORE "+STR$(INV_SCO)+"0"GOSUB@WINSTRPUT IF INV_GV THEN @GV_INV IF INV_ME =0AND !INV_CF THEN INV_CF=1BGMPLAY 4 IF INV_CF THEN @CL_INV BF=INV_BF GOSUB @WINBUFFP INV_OSX=INV_SX INV_OSY=INV_SY INV_OSF=INV_SF F=0 IF !INV_SF THEN INV_SX=INV_SX-INV_SP IF INV_SF THEN INV_SX=INV_SX+INV_SP IF INV_SX =1THEN INV_SX=1INV_SF=1 INV_SY=INV_SY+4F=1 BGMPLAY"@151Q1C8" INV_SP=INV_SP*1.2 IF INV_SX =128-64 THEN INV_SX=64INV_SF=0 INV_SY=INV_SY+4F=1 BGMPLAY"@151Q1C8" INV_SP=INV_SP*1.2 GCOPY INV_OSX,INV_OSY,INV_OSX+64,INV_OSY+INV_MY*8,INV_SX,INV_SY,1 IF INV_SF*INV_OSF THEN GFILL INV_OSX-INV_SP,INV_OSY,INV_OSX,INV_SY+INV_MX*8,14 IF (!INV_SF*!INV_OSF) THEN GFILL INV_OSX+64,INV_OSY,128,INV_SY+INV_MX*8,14 IF F THEN GFILL 0,INV_OSY,127,INV_OSY+3,14 IF INV_SY 128THEN INV_GV=1 GOSUB @WINBUFFP2 GFILL INV_PX+WFX,WFY+96-8,WFX+INV_PX+8,WFY+96,6 GPUTCHR INV_PX+WFX,WFY+96-8,"BGF",5,0,1 B=BUTTON() IF B AND 4THEN INV_PX=INV_PX-2 IF B AND 8THEN INV_PX=INV_PX+2 TP=INV_TP F=0 G=(B AND 16)==16AND (INV_B AND 16)!=16 IF G AND !INV_TF[TP]THEN INV_TF[TP]=1 BGMPLAY"@151Q1 C" F=1 IF F THEN INV_TX[TP]=INV_PX INV_TY[TP]=96-8 INV_TP=(INV_TP+1)%5 FOR I=0TO INV_EM-1 FOR J=0TO INV_EM2-1 IF INV_E[I,J]==2OR INV_F[I,J]==1THEN @INV_SKPP IF INV_E[I,J]==0THEN @INV_SKPPP F=0 IF !RND(100)AND INV_E[I,J]==1THEN BGMPLAY"@151Q1 C"F=1INV_F[I,J]=1 IF F THEN INV_TEX[I,J]=INV_SX+I*8 INV_TEY[I,J]=INV_SY+J*8 ELSE @INV_SKPPP @INV_SKPP INV_TEY[I,J]=INV_TEY[I,J]+3 GFILL WFX+INV_TEX[I,J],WFY+INV_TEY[I,J],WFX+INV_TEX[I,J]+1,WFY+INV_TEY[I,J]+2,15 IF INV_TEY[I,J] 94THEN INV_F[I,J]=0 F=0 IF INV_TEY[I,J] =96-8AND INV_TEY[I,J] =96THEN F=1 IF F AND INV_TEX[I,J] =INV_PX AND INV_TEX[I,J] =INV_PX+8THEN INV_GV=1 @INV_SKPPP NEXT NEXT FOR I=0TO 5 INV_TP TP=I F=0 IF !INV_TF[TP]THEN @INV_SKP IF INV_TF[TP] THEN INV_TY[TP]=INV_TY[TP]-2 F=1 IF F THEN GFILL WFX+INV_TX[TP],INV_TY[TP]+WFY,INV_TX[TP]+2+WFX,INV_TY[TP]-4+WFY,15 IF INV_TF[TP]*(INV_TY[TP] 0)THEN INV_TF[TP]=0 F=0 IF INV_TX[I] =INV_SX AND INV_TX[I] =INV_SX+64AND INV_TY[I] =INV_SY AND INV_TY[I] =INV_SY+42THEN F=1 A=0OR (INV_TX[TP]-INV_SX)/8 C=0OR (INV_TY[TP]-INV_SY)/8 IF F AND A =0AND A INV_MX/8 AND C =0AND C INV_MY/8 THEN IF INV_E[A,C] 0THEN F=2 IF F==2THEN INV_ECX=A INV_ECY=C GOSUB@INV_EC INV_TF[TP]=0 INV_SCO=INV_SCO+1+(0OR INV_SP) @INV_SKP NEXT INV_B=B RETURN @INV_EC GOSUB @WINBUFFP GFILL 0OR INV_ECX*8+INV_SX,0OR INV_ECY*8+INV_SY,0OR INV_ECX*8+INV_SX+7,0OR INV_ECY*8+INV_SY+7,14 INV_E[INV_ECX,INV_ECY]=0 GOSUB @WINBUFFP2 INV_ME=INV_ME-1 RETURN @C_REV BF=REV_BF GOSUB@WINBUFFC GOSUB@WINCLOSE RETURN @D_REV GCIRCLE X*8+3,Y*8+3,3,C GCIRCLE X*8+3,Y*8+3,2,C GCIRCLE X*8+3,Y*8+3,1,C GPSET X*8+3,Y*8+3,C RETURN @P_REV GOSUB@WINBUFFP GCLS 29 FOR I=0TO 7 GLINE I*8-1,0,I*8-1,64,14 GLINE 0,I*8-1,64,I*8-1,14 NEXT FOR I=0TO 7 FOR J=0TO 7 REV_M[I,J]=0 NEXT NEXT REV_M[3,3]=1 REV_M[4,4]=1 REV_M[4,3]=2 REV_M[3,4]=2 C=2X=3Y=3GOSUB @D_REV C=2X=4Y=4GOSUB @D_REV C=4X=4Y=3GOSUB @D_REV C=4X=3Y=4GOSUB @D_REV GOSUB@WINBUFFP2 RETURN ( ・w・`) マント゛クセ FOR,ハイレツナト゛ヲモチイタラ ラクニナルカモタ゛カ゛ @O_8REV X=REV_MX Y=REV_MY @OL_8REV X=X-1Y=Y+1 IF X 0 THEN RETURN IF Y 7THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_8REV RETURN GOTO@OL_8REV @OS_8REV F=1 K=0 IF REV_OF==1THEN RETURN K=REV_MY D=REV_MX Z=X FOR I=Z+1 TO REV_MX-1 K=K+1 D=D-1 Y=K X=D C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_7REV X=REV_MX Y=REV_MY @OL_7REV X=X+1Y=Y-1 IF X 7THEN RETURN IF Y 0 THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_7REV RETURN GOTO@OL_7REV @OS_7REV F=1 K=0 IF REV_OF==1THEN RETURN K=REV_MY Z=X FOR I=REV_MX+1 TO Z-1 K=K-1 Y=K X=I C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_6REV X=REV_MX Y=REV_MY @OL_6REV X=X+1Y=Y+1 IF X 7THEN RETURN IF Y 7THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_6REV RETURN GOTO@OL_6REV @OS_6REV F=1 K=0 IF REV_OF==1THEN RETURN K=REV_MY Z=X FOR I=REV_MX+1 TO Z-1 K=K+1 Y=K X=I C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_5REV X=REV_MX Y=REV_MY @OL_5REV X=X-1Y=Y-1 IF X 0 THEN RETURN IF Y 0 THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_5REV RETURN GOTO@OL_5REV @OS_5REV F=1 K=0 IF REV_OF==1THEN RETURN K=REV_MY Z=X FOR I=REV_MX-1 TO Z+1 STEP -1 K=K-1 Y=K X=I C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_4REV X=REV_MX Y=REV_MY @OL_4REV Y=Y+1IF Y 7THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_4REV RETURN GOTO@OL_4REV @OS_4REV F=1 Z=Y IF REV_OF==1THEN RETURN FOR I=REV_MY+1 TO Z-1 X=REV_MX Y=I C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_3REV X=REV_MX Y=REV_MY @OL_3REV X=X+1IF X 7THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_3REV RETURN GOTO@OL_3REV @OS_3REV F=1 Z=X IF REV_OF==1THEN RETURN FOR I=REV_MX+1 TO Z-1 Y=REV_MY X=I C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_2REV X=REV_MX Y=REV_MY @OL_2REV Y=Y-1IF Y 0 THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_2REV RETURN GOTO @OL_2REV @OS_2REV F=1 Z=Y IF REV_OF==1THEN RETURN FOR I=Z+1 TO REV_MY-1 X=REV_MX Y=I C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_1REV X=REV_MX Y=REV_MY @OL_1REV X=X-1 IF X 0 THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_1REV RETURN GOTO @OL_1REV @OS_1REV F=1 IF REV_OF==1THEN RETURN Z=X FOR I=Z+1 TO REV_MX-1 X=I Y=REV_MY C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_REV F=0 IF REV_M[REV_MX,REV_MY]!=0THEN RETURN IF REV_MX==0THEN @O_REV2 IF REV_M[REV_MX-1,REV_MY]==REV_C THEN GOSUB@O_1REV @O_REV2 IF REV_MY==0THEN @O_REV3 IF REV_M[REV_MX,REV_MY-1]==REV_C THEN GOSUB@O_2REV @O_REV3 IF REV_MX==7THEN @O_REV4 IF REV_M[REV_MX+1,REV_MY]==REV_C THEN GOSUB@O_3REV @O_REV4 IF REV_MY==7THEN @O_REV5 IF REV_M[REV_MX,REV_MY+1]==REV_C THEN GOSUB@O_4REV л ○ @O_REV5 IF REV_MX==0THEN @O_REV6 IF REV_MY==0THEN @O_REV6 IF REV_M[REV_MX-1,REV_MY-1]==REV_C THEN GOSUB@O_5REV @O_REV6 IF REV_MX==7THEN @O_REV7 IF REV_MY==7THEN @O_REV7 IF REV_M[REV_MX+1,REV_MY+1]==REV_C THEN GOSUB@O_6REV @O_REV7 IF REV_MX==7THEN @O_REV8 IF REV_MY==0THEN @O_REV8 IF REV_M[REV_MX+1,REV_MY-1]==REV_C THEN GOSUB@O_7REV @O_REV8 IF REV_MX==0THEN @O_REV9 IF REV_MY==7THEN @O_REV9 IF REV_M[REV_MX-1,REV_MY+1]==REV_C THEN GOSUB@O_8REV @O_REV9 REV_OF=0 RETURN @A_REV DIM REV_M[8,8] ハイレツセンケ゛ン DIM REV_J[8,8] ハイレツセンケ゛ン DIM REV_C[8,8] ハイレツセンケ゛ン DIM REV_D[8,8] ハイレツセンケ゛ン RETURN @S_REV GOSUB@WINBUFF ハ゛ッファカクホ IF BF==0 THEN RETURN エラ-ショリ REV_BF=BF BFC=29 GCLSスルイロ GOSUB@WINBUFFGCLS WINCLS=1 @C_ハソンサ゛イシテイマス IF REV_A==0 THEN GOSUB@A_REV REV_A=1 REV_END=0 REV_PASS=0 REV_CPASS=0 WINX2=64 WINY2=74 REV_J=1REV_JC=2REV_C=2REV_CC=4 GOSUB@P_REV WINTTL$="REV RETURN @WIN_REV BF=REV_BF GCOPY REV_BF,0,0,62,62,WFX,WFY,1 GOSUB@WINBUFFP REV_MX=0OR(MOUSEX-WFX)/8 REV_MY=0OR(MOUSEY-WFY)/8 IF REV_MX 0OR REV_MX 7OR REV_MY 0OR REV_MY 7THEN @SKP_REV F=0 IF REV_PASS THEN GOSUB @REV_COM REV_OKEN=0 REV_PASS=0 IF REV_CPASS THEN REV_CPASS=0 REV_COKEN=0 G=0 IF CLICKR AND REV_M[X,Y]==REV_J THEN X=REV_MX Y=REV_MY C=29 GOSUB @D_REV REV_M[X,Y]=0G=1 IF CLICKR AND REV_M[X,Y]==REV_C THEN X=REV_MX Y=REV_MY C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J G=1 X=REV_MX Y=REV_Y IF CLICKR AND REV_M[X,Y]==0 THEN X=REV_MX Y=REV_MY C=REV_CC GOSUB @D_REV REV_M[X,Y]=REV_C G=1 REV_J=1REV_JC=2REV_C=2REV_CC=4 IF CLICK THEN GOSUB@O_REV IF G GOTO @SKP_REV IF F THEN X=REV_MX Y=REV_MY C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J IF F THEN GOSUB@REV_COM @SKP_REV GOSUB@WINBUFFP2 RETURN @OKC_REV KKK=0 FOR I=0TO 7 FOR J=0TO 7 REV_MX=I REV_OF=1 F=0 GOSUB @O_REV REV_J[I,J]=F KKK=KKK+F NEXT NEXT REV_OKEN=!KKK RETURN @REV_COM GPAGE 0,M,M GCOPY REV_BF,0,0,62,62,WFX,WFY,1 GOSUB @OKC_REV KKK=0 KKD=0 SWAP REV_J,REV_C SWAP REV_JC,REV_CC FOR I=0TO 7 FOR J=0TO 7 REV_MX=I REV_MY=J REV_OF=1 F=0 GOSUB @O_REV REV_C[I,J]=F REV_D[I,J]=F==1AND REV_J[I,J]==1 KKK=KKK+F KKD=KKD+REV_D[I,J] NEXT NEXT REV_COKEN=!KKK GOSUB@WINBUFFP IF REV_COKEN THEN REV_CPASS=1 ELSE REV_CPASS=0 IF REV_COKEN THEN SWAP REV_J,REV_C SWAP REV_JC,REV_CC RETURN @REV_COML GPAGE 0,M,M GCOPY REV_BF,0,0,62,62,WFX,WFY,1 REV_OF=0 RX=RND(8) RY=RND(8) REV_MX=RX REV_MY=RY F=0 GOSUB@O_REV IF F THEN X=REV_MX Y=REV_MY C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J IF F THEN @REV_COM2 GOTO @REV_COML @REV_COM2 SWAP REV_J,REV_C SWAP REV_JC,REV_CC GPAGE 0,M,M GFILL WFX+X*8,WFY+Y*8,WFX+X*8+2,Y*8+2+WFY,REV_CC WAIT 50 GOSUB @OKC_REV IF REV_OKEN THEN REV_PASS=1ELSE REV_PASS=0 GOSUB@WINBUFFP FOR I=0TO 7 FOR J=0TO 7 X=I Y=J C=29 IF REV_M[I,J]==REV_C THEN C=REV_CC IF REV_M[I,J]==REV_J THEN C=REV_JC GOSUB @D_REV NEXT NEXT RETURN -------SYSTEM APPLICATION----- @S_ABOUT WINX2=130 WINY2=48 WINCLS=1 WINTTL$="ABOUT @C_ABOUT RETURN @WIN_ABOUT WINSY=0 WINSX=0 WINSC=1 WINSTR$=MID$(VERSION$,0,16) GOSUB @WINSTRPUT WINSC=1 WINSY=8 WINSTR$=MID$(VERSION$,16,15) GOSUB @WINSTRPUT WINBY=16 WINBX=62-8 WINBSTR$="OK" GOSUB @WINBTN IF WINBTNF==1THEN GOSUB @WINCLOSE WINSC=1 WINSY=27 WINSX=0 WINSTR$="(C)2011-2013otya" GOSUB @WINSTRPUT RETURN SYSTEM ERROR @SYS_ERR_BUFF WINNAME$[TSK]="BUFF WINTTL$[TSK]="BUFF RETURN @WIN_BUFF WINNAME$[TSK]="SYS_ERR WINM[TSK]=-1 ERRN$="Out of buffer ERRT$="ハ゛ッファフ゛ソク GOSUB @WIN_SYS_ERR RETURN @C_SYS_ERR GOSUB @WINCLOSE RETURN ARRAY SET @A_SYS_ERR DIM OTWERRT$[TSKMAX] DIM OTWERRN$[TSKMAX] RETURN @S_SYS_ERR IF OTWERR==0THEN GOSUB @A_SYS_ERR OTWERR=1 OTWERRT$[OTWERR_M]=ERRT$ OTWERRN$[OTWERR_M]=ERRN$ WINMLT[TSK]=OTWERR_M OTWERR_M=OTWERR_M RETURN @WIN_SYS_ERR P=WINMLT[TSK] WINM[TSK]=1 WINTTL$[TSK]=ERRT$ ="ハ゛ッファフ゛ソク WINY2=26+WINDEGY2+WINDEGY WINX2=LEN("Sorry, a system error")*8+WINDEGX+WINDEGX2 WINSX=0 WINSY=0 WINSC=1 WINSTR$="Sorry, a system error" GOSUB @WINSTRPUT WINSC=1 WINSY=8 WINSTR$="type "+ERRN$ Out of buff" GOSUB @WINSTRPUT WINBX=0 WINBY=16 WINBSTR$="OK" GOSUB @WINBTN IF WINBTNF==1THEN GOSUB @WINCLOSE RETURN ---コンソ-ルアフ゜リ @S_COMDBG RETURN @WIN_COMDBG WINSC=1 WINSTR$="A" GOSUB @WINSTRPUT RETURN @S_COM WINTTL$="COMMAND" COMINPUT$="@WIN_COM_INPUT WINMODE=1 WIN_MODE=1 GOSUB @WINFLAG WINCOMF=1 WINCOMX2=128+8 WINCOMY2=191-8 WINX2=128+8 WINY2=192-8 GOSUB @COMWINDOW WINCOMSCY=19 RETURN @WIN_COM WINDESIGN$="NORMAL WINBG=14 GOSUB @WINDOW IF !WINEND THEN WINSCX=(0OR WINSCX/8)*8 WINSCY=(0OR WINSCY/8)*8 WINCOMSX=0OR WINSCX/8WINCOMSY=0OR WINSCY/8 WFX=(0OR WFX/8)*8 WFY=(0OR WFY/8)*8 BGOFS 0,511-WFX+WINCOMSCX*8,511-WFY+WINCOM BGOFS WINCOMR,511-WINCOMSX*8+WINCOMSCX*8,511-WINCOMSY*8+WINCOM GOTO @COMSKP WX=WINCOMSX WY=WINCOMSY WX2=WINCOMSX+WINCOMX2 WY2=WINCOMSY+WINCOMY2 F=0 IF MOUSEX =WX AND MOUSEX =WX2 THEN F=1 IF F==1AND MOUSEY =WY AND MOUSEY =WY2 THEN F=2 IF F==2AND CLICK==1THEN GOSUB @WINSWP F=0 IF MOUSEX =WX AND MOUSEX =WX2 THEN F=1 IF F==1AND MOUSEY =WY AND MOUSEY =WY+8THEN F=2 IF F==2AND CLICK==1THEN WINCOMMVF=1 IF WINCOMF==0THEN @S_COM @COMSKP IF WINIDFLG==1THEN RETURN WINCOMX22=0OR WINCOMX2/8 WINCOMY22=0OR WINCOMY2/8-1 B=BUTTON() IF B==1THEN WINCOMSCY=WINCOMSCY-1 IF B==2THEN WINCOMSCY=WINCOMSCY+1 GOSUB @WINCOMSCRY IF B==4THEN WINCOMSCX=WINCOMSCX-1 GOSUB @WIN_COM_ECHO IF B==8THEN WINCOMSCX=WINCOMSCX+1 GOSUB @WIN_COM_ECHO IF WINCOMSCY -(SCY+FLOOR(WINCOMY2/8))THEN WINCOMSCY=-(SCY+FLOOR(WINCOMY2/8)) IF WINCOMSCY 63-(SCY+FLOOR(WINCOMY2/8)) THEN WINCOMSCY=63-(SCY+FLOOR(WINCOMY2/8)) IF WINCOMSCY -SY THEN WINCOMSCY= IF WINCOMSCY 21-CY THEN WINCOMSCY=21-CY IF SCYY =0 THEN WINCOMSCY=0 IF WINCOMSCY+CY 0THEN WINCOMSCY=0 IF WINCOMSCY 63-WINCOMY22-6 THEN WINCOMSCY=63-WINCOMY22-6 IF WINCOMSCX 0THEN WINCOMSCX=0 IF WINCOMSCX 63-WINCOMX22 THEN WINCOMSCX=63-WINCOMX22 IF CY (FLOOR(WINCOMY2/8))THEN WINCOMSCY=21-CY IF WINCOMMVF==1THEN GOSUB @WIN_COM_MOV COMCOM=COMCOM+1 COMP$="TST"+STR$(COMCOM) GOSUB COMPRT$ GFILL WINCOMSX,WINCOMSY,WINCOMX2+WINCOMSX,WINCOMY2+WINCOMSY,14 KEYFLG=KEYFLG+(WINACTV==1) I$="" IF KEYBF$!=""AND WINACTV==1THEN I$=KEYBF$ KEYBF$="" GOSUB @WIN_COM_IN RETURN @WINCOMSCRY IF WINCOMSCY CY THEN COM$[WINCOMSCY]="" RETURN @WIN_COM_INPR WIN_COM_IN$="" COMP$=COMDIR$+" " COMKF=0 GOSUB COMPRT$ RETURN @WIN_COM_IN F=0 IF INSTR(I$,CHR$(13))!=-1THEN GOSUB @WINCMDRUN WIN_COM_IN$=WIN_COM_IN$+I$ COMCOM=RND(524287) SCY COMP$=I$ STR$(COMCOM)+","+STR$(CYY) COMKF=0 GOSUB COMPRT$ CY=CY-1 IF F==1THEN GOSUB COMPRT$ GOSUB @WIN_COM_INPR RETURN @WINCMDRUN I$=MID$(I$,0,INSTR(I$,CHR$(13))) F=1 CY=CY+1 GOSUB COMPRT$ CMD$=WIN_COM_IN$ GOSUB @CMDRUN IF CMD$[0]=="TITLE"THEN WINTTL$=CMD$[1] IF NOCMD==0THEN GOSUB CMDL$ RETURN @WIN_COM_MOV WINCOMSX=(0OR MOUSEX/8)*8 WINCOMSY=(0OR MOUSEY/8)*8 BGOFS 1,511-WINCOMSX,511-WINCOMSY-SCYY*8 BGOFS 1,511-WINCOMSX,511-WINCOMSY+SCYY*8 BGOFS 1,511-WINCOMSX,511-WINCOMSY+SCYY*8+WINCOMSCY*8-8 BGFILL 1,0,0,WINCOMX2/8,WINCOMY2/8,255,0,0,0 ?MOUSEX,MOUSEY GFILL 0,0,WINCOMX2,WINCOMY2,OTWBGCL IF CLICK2==0THEN WINCOMMVF=0 RETURN @COMWINDOW OTW=1 BGFILL WINCOMR,0,0,WINCOMX2/8,WINCOMY2/8,0,0,0,0 COMPRT$="@COM_ECHO COMP$="OTYAX-COMMAND GOSUB COMPRT$ COMP$="alpha" GOSUB COMPRT$ GOSUB @COM_COM GFILL 0,0,255,191,OTWBGCL GOSUB @WIN_COM_INPR RETURN @WIN_COM_INPUT COM_IN_B$=COM$[CY] COM_I_INK$="" COMI$="" @WIN_COM_INPUTL COM_I_INK$=INKEY$() IF COM_I_INK$==CHR$(13)THEN RETURN IF COM_I_INK$!=""THEN COMI$=COMI$+COM_I_INK$ COM$[CY]=COM_IN_B$+COMI$ COMKF=0COMP$=""GOSUB COMPRT$ GOTO @WIN_COM_INPUTL RETURN WIN_COM_IN_MX=LEN(COM$[CY]) WIN_COM_IN_X=0 WIN_COM_IN_I$="" GPAGE 0,M,M FOR WIN_COM_IN_I=0TO 1 WIN_COM_IN_I=0 WY=WINCOMSY+8+WINCOMZY*8 GFILL WIN_COM_IN_X*8,WY,WIN_COM_IN_X*8+8,WY-1,0 IF BUTTON()==4AND WIN_COM_IN_X WIN_COM_IN_MX THEN WIN_COM_IN_X=WIN_COM_IN_X-1 IF BUTTON()==8AND WIN_COM_IN_X 32THEN WIN_COM_IN_X=WIN_COM_IN_X+1 GFILL WIN_COM_IN_X*8,WY,WIN_COM_IN_X*8+8,WY-1,15 FOR WIN_COM_IN_J=0TO 3 WIN_COM_IN_KEY=KEYBOARD WIN_COM_IN_K$=INKEY$() IF LEN(WIN_COM_IN_K$)THEN GOSUB @WIN_COM_IN_K ?WIN_COM_IN_I$ VSYNC 1 NEXT NEXT GPAGE 0,M,!M RETURN @WIN_COM_IN_K GFILL WIN_COM_IN_X*8,WY,WIN_COM_IN_X*8+8,WY-1,0 WIN_COM_IN_I$=MID$(WIN_COM_IN_I$,0,WIN_COM_IN_X)+WIN_COM_IN_K$+MID$(WIN_COM_IN_I$,WIN_COM_IN_X,256) IF WIN_COM_IN_X 32THEN WIN_COM_IN_X=WIN_COM_IN_X+1 RETURN @WIN_COM_ECHO A=FLOOR(WINCOMX2/8+WINCOMSX/8)-1 B=FLOOR(WINCOMY2/8+WINCOMSY/8) IF A =32THEN A=31 IF B =24THEN B=23 BGCLIP 0OR(WINCOMSX/8),0OR(WINCOMSY/8)+1,A,B A=FLOOR(WFX2/8)-1 B=FLOOR(WFY2/8) C=0OR(WFX/8) D=0OR(WFY/8) IF A 0THEN A=0 IF B 0THEN B=0 IF C 0THEN C=0 IF D 0THEN D=0 IF A 31THEN A=31 IF B 23THEN B=23 IF C 31THEN C=31 IF D 23THEN D=23 BGCLIP C,D,A,B CY=CY%65 SCY=CY-(0OR (WINCOMY22)) IF SCY 0THEN SCY=0 SCYY=CY-(0OR (WINCOMY22)) SCY=SCY%(65-FLOOR(WINCOMY22)) IF CY (FLOOR(WINCOMY22))THEN SCY=0 SCYY=0 WINCMDF=0 IF CY =63THEN WINCMDF=1 CY=63 SCY=64-WINCOMY22 GOSUB @WIN_COM_ECHO_S SCYYY=SCYY WINCOM=(SCYY*8)+WINCOMSCY*8 IF WINCMDF==1THEN WINCOM=WINCOM+8 IF WINCMDF THEN IF COMKF==1THEN GOSUB@WINCOMBGC SCYYY=63 ELSE SCYYY=63 WINCOMZY=(*1)*(!WINCMDF))+(63*WINCMDF) COM$[(*2)+1)%64]="" FOR I=SCY TO ((SCY+FLOOR(WINCOMY22))*(!WINCMDF))+(63*WINCMDF) K=0 IF I =64THEN I=99999 GOTO @WIN_COM_ECHO_SKP M$=COM$[I] IF I==CY THEN WINCOMZY=I-FLOOR(((WINCOMSY+WINCOM)/8)) J=0 FOR J=0 TO 63 (WINCOMX2/8)+WINCOMSCX-1 IF MID$(M$,J,1)==""THEN BGFILL WINCOMR,J,I,63,I,32 A=0 J=64 GOTO@WINCOMECHOSKP A=ASC(MID$(M$,J,1)) BGPUT WINCOMR,J,I,A IF ((J+1)%32)==0THEN K=K+1 @WINCOMECHOSKP NEXT I=I+3 @WIN_COM_ECHO_SKP NEXT BGOFS WINCOMR,511-WINCOMSX*8+WINCOMSCX*8,511-WINCOMSY*8+WINCOM IF CY =64THEN CY=0 IF WINCOM =0 THEN WINCOM=0 GFILL WINCOMSX,WINCOMSY,WINCOMX2+WINCOMSX,WINCOMY2+WINCOMSY,14 RETURN 0 - 0=1 1 - 1=2 2 - 3 - 4 - 5 - 6 - 6=7 7 - 7 @WIN_COM_ECHO_S FOR I=0TO 62 COM$[I]=COM$[I+1] NEXT COM$[63]="" RETURN @WINCOMBGC BGCOPY WINCOMR,0,1,63,63,0,0 COMKF=1 RETURN FOR COM_Y=1TO 63 FOR COM_X=0TO 63 BGREAD(WINCOMR,COM_X,COM_Y),S BGPUT WINCOMR,COM_X,COM_Y-1,S NEXT NEXT RETURN @COM_ECHO K=0 IF CX+LEN(COMP$) 31THEN K=1 IF CY =63AND OTW==1AND COMKF==1 THEN GOSUB @WIN_COM_ECHO_S IF CY 63THEN CY=63 CX=LEN(COM$[CY]) COM$[CY]=MID$(COM$[CY],0,CX)+COMP$ (32*(0OR(CX/32))),(32*(0OR(CX/32))))+COMP$ CX=CX+LEN(COMP$) CX=CX+LEN(COM$[CY]) CY=CY+(COMKF==1) IF CY =62 THEN ELSE COM$[CY+1]="" CX=CX CYY=CYY+(COMKF==1) IF OTW==1THEN GOSUB @WIN_COM_ECHO COMKF=1 IF WINCMDF==1 AND COM_IF==0 THEN COM_IF=2 COMP$="" GOSUB COMPRT$ COM_IF=0 IF COM_IF==2 THEN COM_IF=1 RETURN COMP$="" RETURN OTYAXWINDOWMANUAL @MANUAL アフ゜リ ------------- @S_NAME WINX2= WINY2= RETURN @WIN_NAME RETURN ------------- ------------- @S_NAME WIN_MODE=1GOSUB @WINFLAG WINX2= WINY2= RETURN @WIN_NAME WINDESIGN$="VISUAL GOSUB @WINDOW IF WINIDFLG==1THEN RETURN RETURN ------------- @M_SAMPLE HELLO,WORLD!! @S_S_HL RETURN @WIN_S_HL WINSX=0 WINSY=0 WINSC=1 WINSTR$="Hello" GOSUB @WINSTRPUT RETURN 1LINE EDITOR @S_S_1LINE WINX2=128 WINY2=20 WINTTL$="1LINE EDITOR RETURN @WIN_S_1LINE WINTX=0 WINTY=0 WINTX2=116 WINTSX=WIN1LINEX WINTA=WIN1LINEA WINTXTP$=WIN1LINE$ GOSUB @WINTXTBOX WIN1LINE$=WINTXT$ WIN1LINEX=WINTSX WIN1LINEA=WINTA RETURN ハッカッタッノッシオ @S_S_HKT WINX2=52 WINY2=20 RETURN @WIN_S_HKT WINBX=0 WINBY=0 WINBSTR$="CLICK!" GOSUB @WINBTN IF WINBTNF THEN TALK"@T50ハ!/カ!/タ!/ノ!/@T50シ./オ! RETURN @S_S_V WIN_MODE=1 WINTTL$="ウイテル... GOSUB @WINFLAG WINX2=116 WINY2=24 RETURN @WIN_S_V WINDESIGN$="VISUAL WINBG=1 GOSUB @WINDOW IF WINIDFLG==1THEN RETURN WINSX=0 WINSY=0 WINSC=0 WINSTR$="タタ゛シNORMALニカキ゛ル GOSUB @WINSTRPUT RETURN @M_API @MWINSTRPUT WINSX=サ゛ヒョウ WINSY=サ゛ヒョウ WINSC=ハ゜レット WINSTR$=モシ゛ -ナシ @MWINBTN WINBX=サ゛ WINBY=サ WINBSTR$=モシ゛ - WINBTNF=オサレタカ @MWINPROGBAR WINPX,WINPY,WINPX2,WINPY2 WINPS=サイタ゛イ @MWINCHKBOX WINCX,WINCY WINCSTR$= WINCHKF=オサレテイルカ WINCHKF=オサレタカ @T @TEMPLATE DATA"@C_{N} DATA" GOSUB@WINCLOSE DATA"RETURN DATA"@S_{N} DATA" WINX2={X2} DATA" WINY2={Y2} DATA"RETURN DATA"@WIN_{N} DATA"RETURN DATA END @TEMPLATE2 ACLS CLEAR DATA"@C_{N} DATA" BF={N}_BF DATA" GOSUB@WINBUFFC DATA" GOSUB@WINCLOSE DATA"RETURN DATA"@A_{N} DATA" {DIM} DATA" DIM ハイレツセンケ゛ン DATA"RETURN DATA"@S_{N} DATA" GOSUB@WINBUFF ハ゛ッファカクホ DATA" IF BF==0 THEN RETURN エラ-ショリ DATA" {N}_BF=BF DATA" BFC=15 GCLSスルイロ DATA" GOSUB@WINBUFFGCLS DATA" WINCLS=1 @C_ハソンサ゛イシテイマス DATA" IF {N}_A==0 THEN GOSUB@A_{N} DATA" {N}_A=1 DATA" WINX2={X2} DATA" WINY2={Y2} DATA"RETURN DATA"@WIN_{N} DATA" GCOPY {N}_BF,0,0,WFX-WINSCX,WFY-WINSCY,WFX,WFY DATA" GOSUB@WINBUFFP DATA" GOSUB@WINBUFFP2 DATA"RETURN DATA END DIM VARN$[256] DIM VAR$[256] LBL$="@TEMPLATE2 @TEMPLATECOM INPUT"NAME?(VARSET→V,PREV→P,LABEL→@)";N$ IF N$=="V"THEN GOTO@TEMPLATEVARSET IF N$=="P"THEN GOTO@TEMPLATEP IF N$=="@"THEN INPUT"LABEL(NOT @)";L$ LBL$="@"+L$ GOTO@TEMPLATECOM RESTORE LBL$ VARN$[0]="N" VAR$[0]=N$ J=0 FOR I=0TO 1 READ R$ IF R$!="END"THEN I=0 GOSUB@TEMPLATECHK NEXT FOR I=1TO F+1 KEY I,F$[I-1] NEXT END @TEMPLATECHK GOSUB @TEMPLATEVAR IF LEN(R$)+1+LEN(F$[F]) 255THEN F=F+1 L=L+1 ?L*10" "R$ F$[F]=F$[F]+R$+CHR$(13) RETURN @TEMPLATEVAR SX=-1 FOR J=0TO LEN(R$)-1 IF MID$(R$,J,1)=="{"AND SX==-1THEN SX=J+1 IF MID$(R$,J,1)=="}"AND SX -1THEN EX=J-1 GOSUB@TEMPLATEVAR2 SX=-1 EX=-1 NEXT RETURN @TEMPLATEVAR2 VN$=MID$(R$,SX,EX-SX+1) FOR K=0TO 255 IF VARN$[K]==VN$THEN R$=MID$(R$,0,(SX-1 =0)*(SX-1))+VAR$[K]+MID$(R$,EX+2,256) NEXT RETURN @TEMPLATEVARSET LINPUT"VARNAME?(RETURN→RT)";VN$ IF VN$=="RT"THEN GOTO @TEMPLATECOM LINPUT"VALUE?";VL$ V=V+1 VARN$[V]=VN$ VAR$[V]=VL$ GOTO @TEMPLATEVARSET @TEMPLATEP RESTORE LBL$ FOR I=0TO 1 READ R$ IF R$!="END"THEN I=0GOSUB@TEMPLATEVAR ?R$ NEXT RESTORE LBL$ GOTO@TEMPLATECOM @C_HTN GOSUB@WINCLOSE TALK "ウワアアアトシ゛ルナアアア RETURN @S_HTN WINCLS=1 WINX2=128 WINY2=128 WINTTL$="Hello,OTYAX" HTN_F=0 HTN_X=0 WINMLT[TSK]=HTN_I HTN_I=(HTN_I+1)%10 RETURN @WIN_HTN I=WINMLT[TSK] WINSX=HTN_X[I] WINSY=0 WINSC=1 WINSTR$="Hello,World!!"*!HTN_F[I]+"hatenahageta"*HTN_F[I] GOSUB @WINSTRPUT HTN_X[I]=(HTN_X[I]+1)%128 WINBX=8 WINBY=8 WINBSTR$="hatena" GOSUB @WINBTN IF WINBTNF THEN HTN_F[I]=1 WINEXE$="HTN" GOSUB @WINEXE RETURN @C_HTNP BF=HTNP_BF GOSUB@WINBUFFC GOSUB @WINCLOSE RETURN @S_HTNP WINX2=130 WINY2=107+8 WINCLS=1 GOSUB @WINBUFF IF !BF THEN RETURN HTNP_BF=BF HTNP_C=0 HTNP_P=0 BFC=15 GOSUB @WINBUFFGCLS WINTTL$="HNPAINT" RETURN @WIN_HTNP7 IF CLICK3 THEN GCLS HTNP_CL RETURN @WIN_HTNP6 IF CLICK THEN HTNP_X=MOUSEX-WFX HTNP_Y=MOUSEY-WFY F=0 IF CLICK2 THEN GOSUB@WINBUFFP2 GCIRCLE HTNP_X+WFX,HTNP_Y+WFY,MOUSEX-HTNP_X-WFX,HTNP_CL IF F THEN GOSUB@WINBUFFP IF CLICK3 THEN GCIRCLE HTNP_X,HTNP_Y,MOUSEX-HTNP_X-WFX,HTNP_CL RETURN @WIN_HTNP5 IF CLICK THEN HTNP_X=MOUSEX-WFX HTNP_Y=MOUSEY-WFY F=0IF CLICK2 THEN GOSUB@WINBUFFP2 GFILL HTNP_X+WFX,HTNP_Y+WFY,MOUSEX,MOUSEY,HTNP_C+HTNP_P*16 IF F THEN GOSUB@WINBUFFP IF CLICK3 THEN GFILL HTNP_X,HTNP_Y,MOUSEX-WFX,MOUSEY-WFY,HTNP_C+HTNP_P*16 RETURN @WIN_HTNP4 IF CLICK THEN HTNP_X=MOUSEX-WFX HTNP_Y=MOUSEY-WFY F=0IF CLICK2 THEN GOSUB@WINBUFFP2 GBOX HTNP_X+WFX,HTNP_Y+WFY,MOUSEX,MOUSEY,HTNP_C+HTNP_P*16 IF F THEN GOSUB@WINBUFFP IF CLICK3 THEN GBOX HTNP_X,HTNP_Y,MOUSEX-WFX,MOUSEY-WFY,HTNP_C+HTNP_P*16 RETURN @WIN_HTNP3 IF CLICK3 THEN GPAINT MOUSEX-WFX,MOUSEY-WFY,HTNP_CL RETURN @WIN_HTNP2 IF CLICK THEN HTNP_X=MOUSEX-WFX HTNP_Y=MOUSEY-WFY F=0IF CLICK2 THEN GOSUB@WINBUFFP2 GLINE HTNP_X+WFX,HTNP_Y+WFY,MOUSEX,MOUSEY,HTNP_C+HTNP_P*16 IF F THEN GOSUB@WINBUFFP IF CLICK3 THEN GLINE HTNP_X,HTNP_Y,MOUSEX-WFX,MOUSEY-WFY,HTNP_C+HTNP_P*16 RETURN @WIN_HTNP1 IF CLICK THEN HTNP_X=MOUSEX-WFX HTNP_Y=MOUSEY-WFY FOR I=1TO CLICK2==1 GLINE HTNP_X,HTNP_Y,MOUSEX-WFX,MOUSEY-WFY,HTNP_C+HTNP_P*16 NEXT IF CLICK2 THEN HTNP_X=MOUSEX-WFX HTNP_Y=MOUSEY-WFY RETURN @WIN_HTNP BF=HTNP_BF HTNP_CL=HTNP_C+HTNP_P*16 GCOPY BF,0,0,120,88,WFX,WFY,1 GOSUB@WINBUFFP F=0 IF MOUSEX =WFX AND MOUSEX =WFX+120 THEN F=1 IF F==1AND MOUSEY =WFY AND MOUSEY =WFY+88THEN F=2 IF F!=2 THEN @HTNP_S ON HTNP_M GOSUB @WIN_HTNP1,@WIN_HTNP2,@WIN_HTNP3,@WIN_HTNP4,@WIN_HTNP5,@WIN_HTNP6,@WIN_HTNP7 @HTNP_S GOSUB@WINBUFFP2 FOR I=0TO 15 GFILL WFX+I*8,WFY+88,WFX+I*8+8,WFY+96,I+16*HTNP_P NEXT GBOX WFX-1,WFY-1,WFX+120,WFY+88,14 GBOX WFX+HTNP_C*8,WFY+88,WFX+HTNP_C*8+8,WFY+96,14 F=0 IF MOUSEX =WFX AND MOUSEX =WFX2 THEN F=1 IF F==1AND MOUSEY =WFY+88AND MOUSEY =WFY+96 THEN F=2 IF F==2AND CLICK THEN HTNP_C=0OR(MOUSEX-WFX)/8 WINSTR$="0123456789ABCDEF" WINSX=0 WINSY=97 WINSC=1 GOSUB @WINSTRPUT F=0 IF MOUSEX =WFX AND MOUSEX =WFX2 THEN F=1 IF F==1AND MOUSEY =WFY+96AND MOUSEY =WFY+104THEN F=2 IF F==2AND CLICK THEN HTNP_P=0OR(MOUSEX-WFX)/8 GBOX WFX+HTNP_P*8,WFY+96,WFX+HTNP_P*8+8,WFY+104,14 WINBX=120 WINBY=0 WINBSTR$="→" GOSUB @WINBTN F=0 IF WINBTNF==1THEN HTNP_PL=!HTNP_PL IF HTNP_PL==1THEN @HTNP_M RETURN @HTNP_M WINMX=128 WINMX2=128+64 WINMY=8 WINMK=HTNP_MK WINMKS=HTNP_MKS WINMMAX=6 WINM$[0]="PSET WINM$[1]="LINE WINM$[2]="PAINT WINM$[3]="BOX WINM$[4]="FILL WINM$[5]="CIRCLE WINM$[6]="GCLS GOSUB @WINMENU2 HTNP_MK=WINMK HTNP_MKS=WINMKS IF WINM!=-1AND CLICK AND HTNP_MK==0THEN HTNP_M=WINM RETURN @S_WWWW RETURN @WIN_WWWW WINEXE$="MAC IF WINACTV THEN GOSUB @WINEXE RETURN @S_HAHAHA HAHAHAL$="CコCヤCツEメAハAハAR8ハDコDヤDツFメGハGハGR4ハGハGハG#ハAコAヤAツG#メG2ハB2ハC1ハ HAHAHAX=0 WINY2=74 WINTTL$="コヤツメ RETURN @WIN_HAHAHA IF BGMCHK(2)==0THEN @WIN_HAHAHAS GPUTCHR WFX,WFY,"BGF",ASC(HEHEHE$),1,8 RETURN @WIN_HAHAHAS IF HAHAHAX =LEN(HAHAHAL$) THEN HAHAHAX=0 HAHAHAM$="" J=HAHAHAX D=0 FOR I=J TO LEN(HAHAHAL$)-1 M$=MID$(HAHAHAL$,I,1) IF ASC(M$) =ASC("ヲ") AND ASC(M$) =ASC("ン")THEN I=999 HEHEHE$=M$ ELSE HAHAHAM$=HAHAHAM$+M$ NEXT HAHAHAX=HAHAHAX+LEN(HAHAHAM$)+1 BGMSET 128,HAHAHAM$ BGMPLAY 2,128 RETURN @S_POKOPOKO WINX2=170 WINTTL$="POKOPOKO IF POKOF==0THEN DIM POKOE[5] POKOTM=1024 POKOTTL=1 RETURN TTLロシ゛ック @TTL_POKOPOKO WINSX=0WINSY=0WINSC=1 WINSTR$="ЖPOKOPOKOЁ GOSUB @WINSTRPUT WINSX=0WINSY=8WINSC=1 WINSTR$="SCORE Ж+10,И+20,г-10 GOSUB @WINSTRPUT WINSX=0WINSY=16WINSC=1 WINSTR$="TIME Р+10 GOSUB @WINSTRPUT WINSX=0WINSY=24 WINSTR$="CLICK TO START" WINSC=RND(16) GOSUB @WINSTRPUT IF MOUSEX =WFX AND MOUSEX =WFX2 AND MOUSEY =WFY AND MOUSEY =WFY2 AND CLICK THEN POKOTTL=0 RETURN @WIN_POKOPOKO IF POKOTTL THEN @TTL_POKOPOKO アナ FOR I=0TO 4 GCIRCLE WFX+8+16+I*32,WFY+16+16,16,9 NEXT WINSX=0WINSY=0WINSC=1WINSTR$="SCORE "+STR$(POKOS)+"0TIME "+STR$(POKOT)GOSUB @WINSTRPUT IF POKOE THEN WINSX=0WINSY=8WINSC=1WINSTR$="TIME UP нCLICK TO RESTART"GOSUB @WINSTRPUT IF POKOE THEN IF CLICKR AND WINACTV THEN POKOE=0POKOS=0POKOT=0 ELSE RETURN IFノラレツ・・・ シ゛ツニキタナイ FOR I=0TO 4 IF POKOE[I]==0AND RND(100)==0THEN POKOE[I]=1 POKOT[I]=POKOT+10 R=RND(200) IF POKOE[I]==0AND R==1THEN POKOE[I]=2 POKOT[I]=POKOT+10 IF POKOE[I]==0AND R==2THEN POKOE[I]=4 POKOT[I]=POKOT+10 IF POKOE[I]==0AND R==0THEN POKOE[I]=3 POKOT[I]=POKOT+10 IF POKOE[I]==1THEN GPUTCHR WFX+8+32*I+8,WFY+16,"BGF",ASC("Ж"),1,4 IF POKOE[I]==2THEN GPUTCHR WFX+8+32*I+8,WFY+16,"BGF",ASC("И"),1,4 IF POKOE[I]==3THEN GPUTCHR WFX+8+32*I+8,WFY+16,"BGF",ASC("г"),1,4 IF POKOE[I]==4THEN GPUTCHR WFX+8+32*I+8,WFY+16,"BGF",ASC("Р"),1,4 F=0 IF MOUSEX =WFX+16+32*I AND MOUSEX =WFX+48+32*I THEN F=1 IF F==1AND MOUSEY =WFY+16 AND MOUSEY =WFY+48 THEN F=2 IF F==2AND CLICK AND POKOE[I]==1THEN BEEP 3 POKOE[I]=0 POKOS=POKOS+1 IF F==2AND CLICK AND POKOE[I]==2THEN BEEP 5 POKOE[I]=0 POKOS=POKOS+2 IF F==2AND CLICK AND POKOE[I]==4THEN BEEP 15 POKOE[I]=0 POKOT=POKOT-10 IF F==2AND CLICK AND POKOE[I]==3THEN BEEP 14 POKOE[I]=0 POKOS=POKOS-1 IF POKOE[I]==3AND POKOT POKOT[I] THEN POKOE[I]=0 IF POKOE[I]==2AND POKOT POKOT[I] THEN POKOE[I]=0 IF POKOE[I]==1AND POKOT POKOT[I] THEN POKOE[I]=0 IF POKOE[I]==0AND POKOT POKOT[I] THEN POKOE[I]=0 NEXT IF POKOT 0THEN POKOT=0 POKOT=POKOT+1 IF POKOT =POKOTM THEN POKOE=1 RETURN @S_SCRBAR K=32 DIM SCRBART$[K] SCRBART$[0]="アホ"SCRBART$[1]="タ゛ナ"SCRBART$[2]="テ゛ス"SCRBART$[3]="マア"SCRBART$[4]="コケコッコ" SCRBART$[5]="ホレホレ"SCRBART$[6]="ト゛ス"SCRBART$[7]="コンニチハ"SCRBART$[8]="フ゜チコン"SCRBART$[9]="ホ゛-ン" SCRBART$[10]="フフフ"SCRBART$[11]="ニヤリ"SCRBART$[12]="ケ゛ロ"SCRBART$[13]="ネコ"SCRBART$[14]="セイコウ" SCRBART$[15]="シッハ゜イ"SCRBART$[16]="セイミツ"SCRBART$[17]="キク゛"SCRBART$[18]="ケケケ"SCRBART$[19]="コショウ" SCRBART$[20]="ウソ"SCRBART$[21]="テ゛ス"SCRBART$[22]="YOU!"SCRBART$[23]="ムムム"SCRBART$[24]="OTYAX" SCRBART$[25]="フヘフヘ"SCRBART$[26]="ワン"SCRBART$[27]="ワイン"SCRBART$[28]="アア"SCRBART$[29]="テレレレレ" SCRBART$[30]="ミカン"SCRBART$[31]="セフ" SCRBAR$="ナ-カ゛カ゛カ゛スコ゛クナカ゛イシコシユフヤヤヤテコホヤロ ヒネホ" DIM SCRBAR$[24] FOR I=0TO 23 FOR J=0TO LEN(SCRBAR$)-1 SCRBAR$[I]=SCRBAR$[I]+CHR$(RND(62)+161) SCRBAR$[I]=SCRBAR$[I]+SCRBART$[RND(K)] CHR$(RND(62)+161) J=LEN(SCRBAR$[I]) NEXT NEXT RETURN @WIN_SCRBAR WINBX=62-8 WINBY=0 WINBY2=52-8 WINBM=(24-5)*8 WINBX2=SCRBAR_X2 GOSUB @WINSCRBARY SCRBAR_X2=WINBX2 WINBX=0 WINBX2=62-8 WINBY=52-8 WINBM=LEN(SCRBAR$)*8-56 WINBY2=SCRBAR_Y2 GOSUB @WINSCRBARX SCRBAR_Y2=WINBY2 FOR I=0TO 4 WINSX=0 WINSY=I*8 WINSC=1 WINSTR$=MID$(SCRBAR$[I+SCRBAR_X2/8],WINBY2/8,7) GOSUB @WINSTRPUT NEXT RETURN @COM_HTN COMKF=0 COMP$="AHO"GOSUB COMPRT$ RETURN @S_TSKF WINY2=96 WINX2=64+16 RETURN @WIN_TSKF IF RND(1000)THEN GOSUB@TSKMAX WTSKFTI=TSKM FOR I=WINTSKFYY TO WTSKFTI-1 WINSX=0WINSY=(I-(WINTSKFYY))*8WINSC=1 WINSTR$=MID$(WINNAME$[I]+" "+STR$(TSKF[I]),WINTSKFXX,8) GOSUB @WINSTRPUT NEXT WINBX=64-10+16 WINBY=0 WINBY2=86-10 WINBX2=WINTSKFY WINBM=TSKMAX*8 GOSUB @WINSCRBARY WINTSKFY=WINBX2 WINTSKFYY=0OR WINBX2/8 WINBX=0 WINBX2=64-10+16 WINBY=84-8 WINBM=15*8 WINBY2=WINTSKFX GOSUB @WINSCRBARX WINTSKFX=WINBY2 WINTSKFXX=0OR WINTSKFX/8 RETURN @S_BG WINY2=43 WINTTL$="BG" RETURN @WIN_BG GFILL WFX,WFY,WFX2,WFY2,WIN_BG_CL WINN=WIN_BG_CL WINNX=0 WINNY=0 WINNY2=32 WINNX2=32 WINNM=255 WINNSP=0.5 GOSUB @WINNUMUPDWN WIN_BG_CL=WINN WINBX=33 WINBY=0 WINBSTR$="OK" GOSUB @WINBTN IF WINBTNF THEN OTWBGCL=WINN RETURN @S_HELP WINCLS=1 WINTTL$="HELP" WINX2=90 WINY2=86 RETURN @WIN_HELP ON HELP_M GOTO @WIN_HELP1,@WIN_HELP2,@WIN_HELP3 @WIN_HELP1 WINLBLX=0 WINLBLY=0 WINLBL$="アフ゜リノキト゛ウ" GOSUB@WINLNKLBL IF WINLBLF THEN HELP_M=1 GOSUB@DIC_HELP1 WINLBLX=0 WINLBLY=8 WINLBL$="システムエラ-" GOSUB@WINLNKLBL IF WINLBLF THEN HELP_M=2 GOSUB@DIC_HELP2 RETURN @WIN_HELP3 WINBX2=WIN_HELP_X WINBM=8WINBX2=WIN_HELP_X2 GOSUB @SCR_HELP WIN_HELP_X2=WINBX2 WINBM=68 WINBY2=WIN_HELP_Y2 GOSUB@SCR_HELPX WIN_HELP_Y2=WINBY2 WINLBLX=0 WINLBLY=0 WINLBL$="TOP" GOSUB@WINLNKLBL IF WINLBLF THEN HELP_M=0 FOR I=0TO 6 WINSX=0 WINSY=I*8+8 WINSC=1 WINSTR$=MID$(HELP_DIC$[I+WIN_HELP_X2/4],WINBY2/4,10) GOSUB@WINSTRPUT NEXT RETURN @WIN_HELP2 WINLBLX=0 WINLBLY=0 WINLBL$="TOP" GOSUB@WINLNKLBL IF WINLBLF THEN HELP_M=0 WINBY2=WIN_HELP_Y2 WINBM=60 GOSUB @SCR_HELPX WIN_HELP_Y2=WINBY2 FOR I=0TO 3 WINSX=0 WINSY=I*8+8 WINSC=1 WINSTR$=MID$(HELP_DIC$[I],WINBY2/4,12) GOSUB@WINSTRPUT NEXT RETURN @DIC_HELP1 HELP_DIC$[0]="RUNノテキストホ゛ックスニアフ゜リメイヲ HELP_DIC$[1]="ニュウリョクシテ[RUN]ヲクリックスレハ゛ HELP_DIC$[2]="キト゛ウシマス。 HELP_DIC$[3]="*ソンサ゛イシナイハ゛アイハエラ-カ゛テ゛マス。 RETURN @DIC_HELP2 HELP_DIC$[0]="SYSTEMERROR HELP_DIC$[1]="Out of buffer HELP_DIC$[2]="ハ゛ッファフ゛ソクテ゛ス。 HELP_DIC$[3]="" HELP_DIC$[4]="ハ゛ッファハサイタ゛イ2ツマテ゛テ゛ HELP_DIC$[5]="アフ゜リカ゛イシ゛ョウシュウリョウシタトキニモテ゛ル HELP_DIC$[6]="ハ゛アイモアリマス。 HELP_DIC$[7]="" HELP_DIC$[8]="ナオラナイハ゛アイハサイキト゛ウシテクタ゛サイ。 RETURN @SCR_HELPX WINBX=0 WINBX2=WINX2-WINDEGX2-WINDEGX WINBY=WINY2-WINDEGY-WINDEGY2-8 GOSUB @WINSCRBARX RETURN @SCR_HELP WINBX=WINX2-WINDEGX2-WINDEGX-8 WINBY=WINY +WINDEGY WINBY2=WINY2-WINDEGY-WINDEGY2-8 GOSUB @WINSCRBARY RETURN @C_HELP WIN_HELP_Y2=0 WIN_HELP_X2=0 GOSUB@WINCLOSE RETURN MEMO ケンサクシテオキカエメント゛ウ ии VS ウ゛ワ゛ワ゛ワ゛ワ゛ゥ-ン ャヘ゛ンテ゛-フ゛ ホ゛ッカ゛カ゛キ゛ ййййййййййййййй йййййййййййййН---*---М= з з з к タケヤフ゛ зNOMAL- NORMAL з зキト゛ウシテイルタスクノカス゛ л??????? зDEGIN$- DESIGN$ з @TSKMAXТТТТТТ Сж СССУ з з зТТТТТТТТТТТТТТк лЁ ラフ゛レタ-カ゛ ヤフ゛ テ゛ ヤフ゛レタ- зシテキ hatema з зТТカンリョТТТТТТТТл и )ССУ _ ? з カンリョ- з зТТТТТТТТТТТТТТ л !!ССй _/ж ж ┥ййййййййййййййз ┥йййййййййййййййк жжжж жж @EOF лワハハハハハハ/ [EOF] Е Е Е Е Е ─┬─│ │┌─ END ┌─┐С ┌ │ ├─┤├─ │ │С ├ILE │ │ │└─ └─┘ йййййй з и кサ-ト゛ハ゜-ティ-ノアフ゜リテ゛ス и ┬ ┬ зл | | з з ─ и ノッタ ヨッタ ウィ- ヨット テ゛ フナヨイ и з HATENAHATENA з и HATENAHATENA |_й__йй| HATENAHATENA ┸жжжжжжжжжжжжжжжжжжжжжжжжж┥ зMOUSE SCALE for OTYAX и з и з MSS by hatenaи ┰ййййййййййййййййййййййййй┝ @S_MSS WINCLS=1 WIN_MODE=1 WINX2=177 WINY2=32 SPREAD(0),MSS_X,MSS_Y,MSS_A,MSS_S,MSS_C MSS_S=FLOOR(MSS_S) WINTTL$="Mouse Scale - "+STR$(MSS_S)+"%" RETURN @WIN_MSS WIN_MODE=1 MSS_S=FLOOR(MSS_S) WINTTL$="Mouse Scale - "+STR$(MSS_S)+"%" WINTTL$[TSK]=WINTTL$ GOSUB@WINDOW IF WINIDFLG THEN RETURN WINSX=32 WINSY=1 WINSC=1 WINSTR$="マウスノオオキサヲカエマス。" GOSUB@WINSTRPUT WINBX=0 WINBY=10 WINBSTR$="60%" GOSUB@WINBTN FOR I=1 TO !!(WINBTNF) MSS_S=60 SPSCALE 0,MSS_S,0 NEXT WINBX=29 WINBY=10 WINBSTR$="SMALL" GOSUB@WINBTN FOR I=1 TO !!(WINBTNF) MSS_S=MSS_S-20 MSS_S=FLOOR(MSS_S) IF MSS_S 60 THEN MSS_S=60 SPSCALE 0,MSS_S,0 NEXT WINBX=74 WINBY=10 WINBSTR$="100%" GOSUB@WINBTN FOR I=1 TO !!(WINBTNF) MSS_S=100 SPSCALE 0,MSS_S,0 NEXT WINBX=111 WINBY=10 WINBSTR$="BIG" GOSUB@WINBTN FOR I=1 TO !!(WINBTNF) MSS_S=MSS_S+20 MSS_S=FLOOR(MSS_S) IF MSS_S 200 THEN MSS_S=200 SPSCALE 0,MSS_S,0 NEXT WINBX=140 WINBY=10 WINBSTR$="200%" GOSUB@WINBTN FOR I=1 TO !!(WINBTNF) MSS_S=200 SPSCALE 0,MSS_S,0 NEXT RETURN @C_MSS GOSUB@WINCLOSE RETURN ┸жжжжжжжжжжжжжжжжжжжжжжжжж┥ зネス゛ミクシ゛ョケ゛-ム и з и з NZM by hatenaи ┰ййййййййййййййййййййййййй┝ @S_NZM WINCLS=1 WINMODE=0 WINX2=48 WINY2=58 WINTTL$="ネス゛ミ" BF=0 GOSUB @WINBUFF IF BF==0 THEN GOSUB@SYS_ERR_BUFF RETURN NZM_BF=BF BFC=0 GOSUB@WINBUFFGCLS RETURN @WIN_NZM WINBX=9 WINBY=36 WINBSTR$="BOM" GOSUB@WINBTN NZM_F=!!WINBTNF GCOPY NZM_BF,0,0,46,36,WFX,WFY,1 BF=NZM_BF GOSUB @WINBUFFP GPSET RND(47),RND(36),13 IF NZM_F THEN GFILL 0,0,46,36,0 GOSUB @WINBUFFP2 RETURN @C_NZM BF=NZM_BF GOSUB@WINBUFFC GOSUB@WINCLOSE RETURN ┸жжжжжжжжжжжжжжжжжжжжжжжжж┥ зWindowMoveMode и з и з WMM by hatenaи ┰ййййййййййййййййййййййййй┝ @S_WMM WINCLS=1 WINMODE=0 WINX2=100 WINY2=68 WINTTL$="WindowMM" RETURN @WIN_WMM WINSX=2 WINSY=3 WINSC=1 WINSTR$=" イト゛ウモ-ト゛ " GOSUB@WINSTRPUT WINSX=82 WINSY=3 WINSC=11 WINSTR$=STR$(WINMOVMODE) GOSUB@WINSTRPUT WINSX=14 WINSY=22 WINSC=1 WINSTR$="スヘ゛テイト゛ウ" GOSUB@WINSTRPUT WINSX=14 WINSY=34 WINSC=1 WINSTR$="クロワクノミイト゛ウ" GOSUB@WINSTRPUT WINSX=14 WINSY=46 WINSC=13 WINSTR$="キモクイト゛ウ" GOSUB@WINSTRPUT WINBX=2 WINBY=20 WINBSTR$="0" GOSUB@WINBTN IF WINBTNF THEN WINMOVMODE=0 WINBX=2 WINBY=32 WINBSTR$="1" GOSUB@WINBTN IF WINBTNF THEN WINMOVMODE=1 WINBX=2 WINBY=44 WINBSTR$="2" GOSUB@WINBTN IF WINBTNF THEN WINMOVMODE=2 RETURN @C_WMM GOSUB@WINCLOSE RETURN ┸жжжжжжжжжжжжжжжжжжжжжжжжж┥ зTask Manager и з и з TMNG by hatenaи ┰ййййййййййййййййййййййййй┝ @S_TMNG WINCLS=0 WIN_MODE=0 WINX2=191 WINTTL$="Taskmgr" TMNG_SC=0 TMNG_BXC=1 RETURN @WIN_TMNG TMNG_T=0 TMNG_SL=64 TMNG_L=7 FOR TMNG_I=0 TO TSKMAX-1 TMNG_T=TMNG_T+!!(WINFLG[TMNG_I]!=0) NEXT FOR TMNG_CI=1 TO TMNG_BXC WINSX=2 WINSY=2 WINSC=1 WINSTR$="Target " GOSUB@WINSTRPUT WINSX=58 WINSY=2 WINSC=11 WINSTR$=STR$(TMNG_SC) GOSUB@WINSTRPUT WINSX=2 WINSY=11 WINSC=11 WINSTR$=WINTTL$[TMNG_SC] GOSUB@WINSTRPUT WINSX=2 WINSY=20 WINSC=1 WINSTR$="Name " GOSUB@WINSTRPUT WINSX=42 WINSY=20 WINSC=11 WINSTR$=WINNAME$[TMNG_SC] GOSUB@WINSTRPUT WINBX=2 WINBY=28 WINBSTR$="Compact" GOSUB@WINBTN IF WINBTNF THEN TMNG_BXC=0 WINBX=2 WINBY=40 WINBSTR$="RUN.OTW" GOSUB@WINBTN IF WINBTNF THEN WINEXE$="RUN" GOSUB@WINEXE WINBX=2 WINBY=52 WINBSTR$="Close" GOSUB@WINBTN IF WINBTNF THEN TSK=TMNG_SC GOSUB@WINCLOSEGT NEXT FOR TMNG_CI=1 TO !(TMNG_BXC) WINBX=2 WINBY=1 WINBSTR$="Resize" GOSUB@WINBTN IF WINBTNF THEN TMNG_BXC=1 TMNG_SL=13 NEXT FOR TMNG_I=0 TO TMNG_T-1 WINBX=2 WINBY=TMNG_I*12+TMNG_SL WINBSTR$=STR$(TMNG_I) GOSUB@WINBTN IF WINBTNF THEN TMNG_SC=TMNG_I WINSX=14 WINSY=TMNG_I*12+TMNG_SL+2 WINSC=1 IF LEN(STR$(TMNG_I))==2 THEN WINSX=WINSX+8 WINSTR$=WINTTL$[TMNG_I] IF LEN(WINTTL$[TMNG_I]) TMNG_L THEN TMNG_L=LEN(WINTTL$[TMNG_I]) GOSUB@WINSTRPUT NEXT WINY2=TMNG_SL+12+TMNG_T*12 WINX2=16+TMNG_L*8 RETURN @C_TMNG GOSUB@WINCLOSE RETURN ┸жжжжжжжжжжжжжжжжжжжжжжжжж┥ зBack Ground Music Player и з и з BGMP by hatena и ┰ййййййййййййййййййййййййй┝ @S_BGMP WIMCLS=1 WINMODE=0 WINX2=110 WINY2=33 WINTTL$="BGMPlayer" RETURN @WIN_BGMP IF BGMP_N 0 THEN BGMP_N=29 IF BGMP_N 29 THEN BGMP_N=0 WINSX=2 WINSY=2 WINSC=1 WINSTR$="BGM Number " GOSUB@WINSTRPUT WINSX=90 WINSY=2 WINSC=11 WINSTR$=STR$(BGMP_N) GOSUB@WINSTRPUT WINBX=2 WINBY=10 WINBSTR$="♪" GOSUB@WINBTN IF WINBTNF THEN BGMPLAY 7,BGMP_N WINBX=15 WINBY=10 WINBSTR$="м" GOSUB@WINBTN IF WINBTNF THEN BGMSTOP 7 WINBX=28 WINBY=10 WINBSTR$="+" GOSUB@WINBTN IF WINBTNF THEN BGMP_N=BGMP_N+1 WINBX=41 WINBY=10 WINBSTR$="-" GOSUB@WINBTN IF WINBTNF THEN BGMP_N=BGMP_N-1 RETURN @C_BGMP GOSUB@WINCLOSE RETURN ┸жжжжжжжжжжжжжжжжжжжжжжжжж┥ зControl Pannel и з и з CP by hatenaи ┰ййййййййййййййййййййййййй┝ @S_CP WINCLS=1 WINMODE=0 WINX2=191 WINY2=144 WINTTL$="コントロ-ルハ゜ネル" RETURN @WIN_CP WINBX=0 WINBY=8 WINBSTR$="マウスノオオキサ" GOSUB@WINBTN IF WINBTNF THEN WINEXE$="MSS" GOSUB@WINEXE WINBX=69 WINBY=8 WINBSTR$="ウィント゛ウイト゛ウモ-ト゛" GOSUB@WINBTN IF WINBTNF THEN WINEXE$="WMM" GOSUB@WINEXE RETURN @C_CP GOSUB@WINCLOSE RETURN
https://w.atwiki.jp/nicoratch/pages/1441.html
概要 Vestax PMC-07Pro似のモデル。グラフィックタイプのEQや光学式クロスフェーダーを搭載(American Audio QD-5に搭載のものと同じユーザーレビューあり) +フロント・リアパネル画像 フロントパネル リアパネル スペック表 optyczny crossfader 2 wejścia gramofonowe / liniowe 2 wejścia mikrofonowe przełączniki pracy rewersyjnej crossfadera i faderów regujacja charakterystyki crossfadera i faderów potencjometry pracują w systemie VCA napięciowym dwa regulowane wyjścia master wyjscie master symetryczne regulacja czułości GAIN w każdym kanale trójpozycyjna regulacja barwy tonu regulowane wyjście słuchawkowe zewnętrzny zasilacz dane techniczne Pasmo przenoszenia 20 Hz - 20 kHz Odstęp sygnału od szumu -80 dB Zniekształcenia 0,01% Regulacja barwy H/M/B +10 / -40 dB Wymiary 254 x 355 x 87 mm Waga 4,8 kg 操作部解説 https //www.hip-hop.pl/teksty/projector.php?id=1174662233
https://w.atwiki.jp/nekosabawiki/pages/14.html
各クラブHP ブログ 各クラブHP <各クラブHP> KinTaMa http //blog.livedoor.jp/kintama_mikaku/ 幻想郷 http //www7b.biglobe.ne.jp/~sou/gensoukyou/ 粉雪 http //www.geocities.co.jp/mouse68jp/top.html http //motions.dw.land.to/ UNION http //club-union.b7m.net/ 朧月夜 http //twoboro.web.fc2.com/ Encount http //wing2.jp/~encount/ メガネ http //megane.orz.hm/TW/meganetop.html LostTime http //losttime200708.web.fc2.com/ 鷹の団 http //pksp.jp/takanodan1125/ 虹色の翼 http //www1.tmtv.ne.jp/~rhyme/rainbow/index.html AlleGro http //cluballegro.web.fc2.com/ Steady Ties http //steadyties.web.fc2.com/ 空に咲く華 http //sky.geocities.jp/mariru0610/ 絆KIZUNA http //kizuna0213.blog112.fc2.com/ 月華の宴 http //moonfeast.web.fc2.com/ カウルの動く城 http //iitokokauru.iinaa.net/ 友情と絆 http //www.freepe.com/i.cgi?yuzyokotuki 時の賛美歌 http //tokinosanbika.blog107.fc2.com/ 偉大なる夢 http //idainaruyume.nobody.jp/ SnowRain http //rainingsnow.web.fc2.com/ 空の輝石 http //blueskystar.web.fc2.com/ しましま団 http //www.hpmix.com/home/simasimadan/T1.htm ブラックボトム http //33.xmbs.jp/makijaku/ スパイダー http //twspyder.web.fc2.com/ 南十字星 http //minamizyuuzisei.blog96.fc2.com/ Ferrari http //sigh-to.com/_/game/index.html 虹色金魚 http //plaza.rakuten.co.jp/nijiirokingyo ザボンの月 http //zabonthemoon.seesaa.net/ ココ http //ameblo.jp/club-koko 幻影の薔薇 http //www.geocities.jp/tw_genei_bara/ <閉鎖?> ジョーカー http //lovejoker.xxxxxxxx.jp/ Happysky http //happysky.xxxxxxxx.jp/ BLACKxANGEL http //www7a.biglobe.ne.jp/~onihama/ xX爆走天使Xx http //tennsi12.hp.infoseek.co.jp/ 絆KIZUNA http //happytown.orahoo.com/tw-kizuna/ ブログ <ブログ1:有名どころ> 魔女の安息日 http //sabbatzetubou.blog98.fc2.com/ KinTaMaメンバー http //blog.livedoor.jp/kintama_mikaku/ きゅるるん(すいすみす) http //swissmiss.blog53.fc2.com/ みなみん http //yaplog.jp/tw_minamin/ みなみん(要パス) http //twminamin2007.blog98.fc2.com/ 喫茶黒猫 http //yaplog.jp/kuroneko-kissa/ レッドレール http //redreer.blog.shinobi.jp/ テガフール http //yaplog.jp/tegafur/ ヴィリー http //yaplog.jp/vi-va-vi-ri/ れいた http //shower.blog85.fc2.com/ チソコ研究室 http //blog.livedoor.jp/ken9sha/ 女神アテナ http //blog.livedoor.jp/megamiatena/ ジェイジェイ http //pksp.jp/jj0512/ ななすん http //myhome.cururu.jp/nanataso/ ロナウジ―ニョ http //ronaujinyo.blog104.fc2.com/ Shiro http //megane.orz.hm/TW/meganetop.html セレシア http //yaplog.jp/reitelina/ ぴたきち隔離スレ(笑) http //ex23.2ch.net/test/read.cgi/net/1189031199/ <ブログ2:ほぼ更新の可能性なし> びろびろ http //bilobilo.blog102.fc2.com/ ほっしぃ http //yaplog.jp/azlie-k/ 村勇者 http //blog.livedoor.jp/countryhero/ よしあん http //blog106.fc2.com/n/nekosaba71/ baruzenohu(閉鎖) http //baruzenohu.blog96.fc2.com/ <ブログ3:無名どころ(ABC順)> BELL http //herunherun.blog83.fc2.com/ JackSparrow http //twgame.blog.shinobi.jp/ KUROとビスヶ http //kurogane58.blog58.fc2.com/ kurokuro http //kurokuro500.blog118.fc2.com/ lionhikaru http //yaplog.jp/lionhikaru/ Mallboro http //chakochan14.blog104.fc2.com/ neo若武者 http //neowakasama.blog123.fc2.com/ pArAnOiA(4代目) http //yaplog.jp/yondaimepara/ RESHOGO http //mallyheart.blog113.fc2.com/ Riss http //twriss.blog98.fc2.com/ sakuya http //fxgeo.web.fc2.com/ StruckDrops http //odoroki.blog66.fc2.com/ teruya http //blog.livedoor.jp/twteruya/ tmrlove http //tmrlove.blog54.fc2.com/ vSaiv http //blog.livedoor.jp/xshiningx/ <ブログ4:無名どころ(50音順)> 蒼狗 http //blogs.yahoo.co.jp/nakacho1226 蒼光 http //twhurenea.blog109.fc2.com/ 蒼依 http //serenadebluesky.blog111.fc2.com/ アカネコ http //matatabiblog.blog105.fc2.com/ 秋姫 http //yaplog.jp/love-tw/ アミレ http //afkia.exblog.jp/i3/ 衣織 http //saranohourouki.blog80.fc2.com/ 伊邪那岐命 http //poponotan.blog123.fc2.com/ エルロン http //aileron.blog108.fc2.com/ ヴィラ http //viratw.blog110.fc2.com/ 爻ガープ爻 http //yaplog.jp/gapu-sibe/ かっぴー http //kapphy.blog105.fc2.com/ 艦長 http //judo0214.blog118.fc2.com/ きよ http //preciouscute.blog100.fc2.com/ キリぃ http //kily.blog.shinobi.jp/ クリス http //kurisusu.blog104.fc2.com/ ギルガ http //counterrevolution.blog104.fc2.com/ くっきー http //poladiary.blog80.fc2.com/ クラリオ http //judgmentkura.blog102.fc2.com/ くりむ http //yaplog.jp/usausamax/ 瑚都 http //yaplog.jp/twkoto/ 琴月 http //kototukihaizaki.blog123.fc2.com/ こねりと http //konerito.blog101.fc2.com/ 最後の光 http //saisyohikari.blog109.fc2.com/ 沙織 http //saorineko.blog101.fc2.com/ 佐倉葵 http //partydream.blog101.fc2.com/ 仔音 http //kiminosion.blog104.fc2.com/ しずくん http //skyscrapersizuku.blog102.fc2.com/ 七夜の末裔 http //kagikyokugei.blog105.fc2.com/ 杓夜 http //yue00.blog105.fc2.com/ ジャンティーヌ http //yaplog.jp/janteanu/ 蹂躪の爪牙 http //0803harfmoon.blog115.fc2.com/ ジュスピアソ http //jusu.blog.shinobi.jp/ ジュディー http //dvxvb-duxub.jugem.jp/ ジョシュ http //yaplog.jp/josyu_ryuji/ ジョボビッチ http //jobotorauma.blog119.fc2.com/ スープラ壱 http //yasukitw.blog114.fc2.com/ ゼルナ http //linklove.blog117.fc2.com/ そらみみ http //sorarikoyk.blog119.fc2.com/ 力力 http //tikaratikara.blog123.fc2.com/ 天国旅行 http //sixthsicks.com/ とまにー http //toma22.blog118.fc2.com/ トレス http //yaplog.jp/shikuriro/ ナナっこ http //nanamizuki.blog106.fc2.com/ ナリス http //blogs.yahoo.co.jp/takeomanwalk ナンナ http //nekochan919.blog117.fc2.com/ にこ吉 http //nikokichi2525.blog115.fc2.com/ にちぇネコSP http //nityeneko.blog122.fc2.com/ パーシモン http //babybabyparshimon.blog104.fc2.com/ はな姫ちゃん http //hanahimeko.blog115.fc2.com/ ハーピィ http //harppy2.blog109.fc2.com/ ファラベル http //meruemufara.blog118.fc2.com/ フェイス http //mizuookami.blog105.fc2.com/ ベリアール http //beriberiri.blog105.fc2.com/ まぐな http //magna.blog.shinobi.jp/ まつり http //xxmaturixx.blog120.fc2.com/ 豆王子 http //mameyarou.blog116.fc2.com/ まりる http //blog.goo.ne.jp/marimo3350/ マリヲ http //mariwogallary.blog111.fc2.com/ マンマル(閉鎖) http //azure0921.blog.shinobi.jp/ みゅっさ http //black0427.blog47.fc2.com/ みわちゃん(閉鎖) http //yaplog.jp/twmiwatw/ めたもん http //ryoseimetamon.blog32.fc2.com/ 滅龍皇 http //metu555puyo.blog122.fc2.com/ やっちん http //yacchin.blog.shinobi.jp/ ゆきや http //yukiyashiro.blog105.fc2.com/ ユリィ http //plaza.rakuten.co.jp/yurii624/ ヨッシィー http //takanodanloves.blog105.fc2.com/ 夜ノ森 http //talesweaverucian.blog75.fc2.com/ ラキスト http //rakisuto.blog106.fc2.com/ リージ http //yaplog.jp/ri-zi2525/ 凛護 http //yaplog.jp/apple-tw/ ルミル http //happa.blog82.fc2.com/ ルルシア http //lalalanola.blog120.fc2.com/
https://w.atwiki.jp/simesaba/pages/88.html
用語集(かっとなるおぶざいやぁ/KOTY) KATTONARU OF THE YEAR 選考 年間通して探索活動のためにカッとなった回数や金額の多い人に授与される。 集計期間はその年の元旦0時から大晦日23 59 59まで。 とは言うものの厳格な集計方法はいまだ定まっていない。 過去の受賞者 KOTY2005 ? KOTY2006 S氏 KOTY2007 B氏 KOTY2008 集計中 似て非なるもの CAR OF THE YEAR
https://w.atwiki.jp/polish/pages/253.html
poważny 深刻な,まじめな.深刻ということは,重要だということ.ważny automatyczny 自動の prawie ほとんど. konieczny 必須の żonaty (男性が)既婚の.zamężna ważny 重要な,大切な. rozbity rozbić płodny piękny 美しい kwaśny 酸っぱい główny 基本の zależny 依存している zależeć jak ...のように naturalny 自然の ubogi 貧しい możliwy 可能な pewien ある....見た目は全然違いますが,英語の certain のように,「ある...」 の使い方と,「確か」の使い方があります.ポーランド語/その他/that節 obecny 現在の odpowiedzialny 責任のある gotowy 既成の przygotować razem 一緒の osobny 別々の regularny 定期的な nagły 突然の.副詞形は nagle. częsty たびたびの elastyczny 伸縮する stały 固体の ciekły 液体の
https://w.atwiki.jp/keroro00innovator/pages/2253.html
NISEKOI BEST SONGS NISEKOI BEST SONGS 発売日 2015年4月8日 レーベル アニプレックス デイリー最高順位 2位(2015年4月9日) 週間最高順位 2位(2015年4月14日) 月間最高順位 11位(2015年4月) 年間最高順位 94位(2015年) 初動売上 5217 累計売上 8049 収録内容 曲名 アーティスト タイアップ 視聴 1 Heart Pattern 桐崎千棘(東山奈央) ニセコイ ED 2 リカバーデコレーション 小野寺小咲(花澤香菜) 3 TRICK BOX 鶫誠士郎(小松未可子) 4 はなごのみ 橘万里花(阿澄佳奈) 5 オーダー×オーダー 宮本るり(内山夕実) 6 大切の作り方 桐崎千棘(東山奈央)&小野寺小咲(花澤香菜) 7 想像ダイアリー 桐崎千棘(東山奈央),小野寺小咲(花澤香菜),鶫誠士郎(小松未可子),橘万里花(阿澄佳奈) 8 本命アンサー 桐崎千棘(東山奈央)&小野寺小咲(花澤香菜) ニセコイ キャラソン 9 ブルースケジュール 桐崎千棘(東山奈央) 10 ホワイトギフト 小野寺小咲(花澤香菜) 11 CLICK ClariS ニセコイ OP 12 STEP ランキング 週 月日 順位 変動 週/月間枚数 累計枚数 1 4/14 2 新 5217 5217 2 4/21 7 ↓ 1356 6573 3 4/28 ↓ 727 7300 4 5/5 412 7712 2015年4月 11 新 7712 7712 5 5/12 337 8049 関連CD 本命アンサー CLICK STEP Rally Go Round
https://w.atwiki.jp/xbox360score/pages/765.html
[PROTOTYPE] 項目数:40 総ポイント:1000 難易度:~ 790 ★★☆☆☆(Pt、収集系、難易度Hard以外) ~1000 ★★★☆☆ 難易度HARDをプレイするにはNORMALをクリアしないといけない為、実績コンプリートには2週以上が必須。 また、難易度NORMALをクリアするとEASY、及びNORMALで強さを引き継いで最初からプレイ可能。 1度も死なずにクリア(Hard To Kill)等は2週目以降のEASYで取ると良い。 ※フリーズ報告が多数有り。データが破損する可能性もある為、予備のデータの作成を推奨。 Prototype(プロトタイプ)@wiki Revenge Revisited Complete Story Mode on hard difficulty.難易度Hardでストーリーモードをクリアする 60 Endless Hunger Consume 200 characters to boost your health.200人を取り込んで体力をアップさせる 10 Trail Of Corpses Kill 53,596 infected.感染者を53,596人殺す 30 Wrecking Yard Destroy 2,000 vehicles.車両を2,000台破壊する 20 Misconception Destroy 25 Infected Water Towers before they hatch.感染給水塔を作動前に25ヶ所破壊する 20 Brain Trust Complete all Consume Events.Consumeイベントを全てクリアする 20 Streetwise Collect all Landmark collectibles scattered across New York City.ニューヨーク市内の至る所に点在するランドマークアイテムを全て集める 50 Polymath Collect all Hint Collectibles scattered across New York City.ニューヨーク市内の至る所に点在するヒントアイテムを全て集める 40 Half-Truths Complete a mission without causing a single Military Alert.Military Alertを1度も引き起こす事無く1ミッションクリアする 10 Mankind Is Your Mask Complete 3 missions without causing a single Military Alert.Military Alertを1度も引き起こす事無く3ミッションクリアする 40 The Butcher Kill 50 characters in 5 seconds.5秒以内に50人を殺す 30 Return Fire Catch any object tossed by a Hydra; and throw it back.Hydraが投げるオブジェクトをキャッチして投げ返す 10 Gunning Destroy 20 Helicopters in a single Helicopter flight.1回のヘリコプター飛行中にヘリコプターを20機破壊する 10 Cleanup Kill 15 characters with a single Whipfist attack.1回のWhipfistアタックで15人を殺す 10 The First Thread Unlock the Web of Intrigue.Web of Intrigueをアンロックする 10 Self-Deception Discover what happened to Alex Mercer through the Web of Intrigue.Web of Intrigueを通して、Alex Mercerに何が起こったのかを知る 20 Web Of Knowledge Acquire all nodes of the Web of Intrigue.Web of Intrigueの全てのノードを獲得する 60 It s Him! Patsy 5 military personnel.5つの軍部隊を騙す 10 In Plain Sight Evade 10 strike teams.10の攻撃チームから逃れる 10 Infiltrator Infiltrate 10 Military Bases disguised as a Commander.指揮官に変装して10ヶ所の軍基地に潜入する 20 Threat Elevated Destroy 25 strike teams.25の攻撃チームを破壊する 20 Repossession Seize 50 vehicles from enemy hands.敵の車両を50台奪う 10 SME Gain the ability to drive and fly all vehicles.全ての乗り物の運転/飛行能力を獲得する 20 Surface-To-Air Shoot down 50 helicopters while driving armor.装甲車を運転中にヘリコプターを50機撃ち落とす 10 Evolutionary Step Use the Upgrade Menu to acquire an Upgrade.アップグレードメニューを使ってアップグレードを獲得する 10 Unnatural Selection Acquire all available upgrades.全てのアップグレードを獲得する 40 The Cleaner Destroy 10 Military Bases or Infected Hives in New York City.ニューヨーク市内の軍基地か感染者の巣を10ヶ所破壊する 20 In The Web Consume 50 Web Targets.Webターゲットを50人取り込む 20 Au Achieve a rating of Gold or better in all Events.全てのイベントでゴールド以上の評価を獲得する 40 Nice Guy Complete the game while consuming 10 Civilians or fewer.取り込んだ一般市民が10人以下でゲームをクリアする 40 Hard To Kill Complete Story Mode in any difficulty without dying.いずれかの難易度で1度も死ぬ事無くストーリーモードをクリアする 60 Speed Bumps Run over 500 characters in a single tank.1台の戦車で500人を轢く 20 Pt Achieve a Platinum Medal in all Events.全てのイベントでプラチナメダルを獲得する 60 秘密の実績 Crossing The T You ve completed the Hunter Boss Encounter. 10 Errand Boy You ve completed the Specialist Boss Fight. 10 Children Of Blacklight You ve completed the Supreme Hunter Boss Battle. 20 On Instinct You ve completed the Mother Boss Battle. 20 One Thousand Suns One Thousand Suns 40 Hope You ve discovered the truth behind Hope, Idaho. 20 Origin You ve discovered the history of Elizabeth Greene. 20 収集物マップ http //www.xbox360achievements.org/forum/showthread.php?p=2030611#post2030611 Trail Of Corpses ストーリー後半で街の感染度を上げておくと効率的。 KILLイベントROLLING THUNDERを何度も繰り返す 開始したらゆっくり南下しながら敵集団に向けてRTで乱射しまくる。 1回2分につき1000人ほどINFECTED CIVILIANを巻き込んで殺害していける。 イベントでの殺害対象であるEVOLVEDとHUNTERも合算されるのでダブルにお得 1時間半ほどで実績取得可能 連射コントローラーがあれば放置も可能 上記のROLLING THUNDERでXボタン連射とRTと左ステッィック(左or右方向)を輪ゴムで固定 戦車が回りながら砲撃を撃ち続ける感じになる。 Misconception HIVE近辺のビル屋上にある感染した給水タンクを、敵が出てくる前に25個破壊する。 近づかずにWHIPFISTのY長押しやヘリで破壊すると楽。目標の給水タンクは上空をカラスが旋回しているので遠方からでもよくわかる。 The Butcher Killイベントの「ORDNANCE」(戦車で感染者を倒すイベント)で近くにあるHIVEまで移動し、感染者の群れにミサイルを撃つと楽。 Return Fire Hydraとは大きな触手の敵。特定のミッションやイベントのみ出現するので注意が必要 投げてきた車、瓦礫を直接キャッチして投げ返せば解除。 Gunning Killイベント「PROJECTILES」等の側にあるヘリを使用する。 最高高度まで上昇すると何故か敵のヘリが沸いた後に動かなくなる為、近づいて瞬殺を繰り返せばすぐ。 Killイベント「FRENDRY FIRE」でも可能。 イベント内容がヘリに乗って、敵のヘリを倒すというものなのでイベントをこなした後に そのままヘリに乗り続けて、そこらへんを飛んでいるヘリを打ち落とせばOK Cleanup 敵ではなく一般人でも可。Times Squareに集まっている一般人にX→Yを使えばすぐ。 Self-Deception 「Web Of Knowledge」の過程で解除。 It s Him! ストーリー後半でUPGRADEできる「PASTY」のアビリティでMilitaryを5回騙す。 PASTYのアビリティはDISGUISEのPASTY欄で習得可能。 Surface-To-Air 1台の戦車ではなく通算。 戦車でなくても蹴りで破壊して解除されたのを確認。 Speed Bumps 一般人相手でもOK Times Squareなどで走り回ればすぐに解除される。 Nice Guy 体力回復目的に非感染の一般人を取り込まなければいい。感染した市民は取り込み可。 Statistics-ConsumesのPEDESTRIANS CONSUMEDの数が10以下であること。 Hard To Kill Alexが死ななければ護衛対象が死んだり、ミッション失敗などしても問題なし KillやWarイベントの最中に死んだ場合もカウントされるので、イベントを始める前にしっかりと体力回復をし セーブしておいたほうが無難 Pt 全てのイベントでゴールドメダルを獲得すると、その上のランクのプラチナがアンロックされるので 再度全てのイベントを行い、プラチナメダルを獲得する。 既にプラチナメダル以上のスコアを獲得しているイベントは、データをロードし直す事でゴールドメダルがプラチナメダルに変化するが、バグによって変化しない場合もある。 その場合は諦めてもう一度全部プラチナメダルを取り直すしかない。 ※Au(全ゴールドメダル)取得前にすべてのスコアをプラチナ以上にしているとAuの実績のみ解除なので注意 秘密の実績 HopeとOrigin以外はストーリークリアで解除。 上記2つの実績は「Web Of Knowledge」の過程で解除される。
https://w.atwiki.jp/twitterbot/pages/843.html
kaitobot / kaitobot Web http //bit.ly/cLkEo 自己紹介 botです。VOCALOID系新着から、ニコニコ動画のKAITO系動画を紹介。30分毎(毎時25,55分)更新。絵はpiaproよりみねこさん。 タグ VOCALOID ニコニコ動画 最近のつぶやき 新着記事は見つかりませんでした。 最終更新 2009/09/13 19 04 03